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Foreword 


For the home computer enthusiast, books are a very necessary and valuable 
complement to the hardware and software. In this book, Jane Reh has pro- 
duced a comprehensive survey of Simons’ BASIC that will be of enormous 
value to anyone who is exploring its many commands. 

My first encounter with Commodore computers was with the early 2000 
series PETs for which I started writing utilities, largely for my own use. When 
I was working with a Commodore Vic 20, I devised a selection of routines to 
enable me to write my programs more easily. 

Then the 64 came along with its marvelous potential for graphics and sound! 
It was a logical step to write similar routines for the new machine. However, 
as I did more work on the 64, I had more and more ideas for commands that 
could be valuable; the section dealing with Sprites is a good example. 

Gradually, Simons’ BASIC came into being. With support and encourage- 
ment from Gail Wellington of Commodore (United Kingdom), I extended 
Simons’ BASIC to produce the version now available. 

There is a wealth of good software, of all types, available for most computers 
in the market. Sadly, much of this software is never used to its full potential by 
its purchasers. Many people are working alone at home on their computer, 
and I know from my own experience how frustrating it can be if no one 
explains exactly how to use some new program. Over the last year I have often 
had the pleasure of talking to Simons’ BASIC users at exhibitions, and some- 
times they have only been able to use half the capabilities because they felt 
unable to understand some of the other commands. Often, if time is short, a 
new user may feel too discouraged to continue, but a work such as Jane’s with 
its abundance of examples and clear explanations can provide just the help 
that is needed. 

I like to think that Simons’ BASIC helps people to get more enjoyment from 
programming their 64; I am grateful to Jane for writing this book which will 
make such a contribution to that enjoyment. 


David Simons 
England, 1985 
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Simons’ BASIC is for everyone who programs a Commodore 64 or Commo- 
dore 128 computer. Students and businessmen alike will want to use the plot- 
ting graphics for creating bar charts, pie charts, and line graphs as an impor- 
tant addition to their reports. Game programmers and teachers and students 
writing educational programs will welcome the simplified use of graphics and 
sound. All Commodore 64 and 128 owners will welcome the versatility of this 
language and its programming ease and power. Simons’ BASIC enables you to 
write programs creating beautifully and easily formatted output—whether 
numbers, text, graphics, or a combination of the three. This is the language for 
creative programmers. 

Perhaps you have already bought the Simons’ BASIC cartridge and are look- 
ing for help in learning to use it well. This reference book—which will replace 
your Simons’ BASIC User Guide—will show you how to make the most of each 
command, by supplying all the DOs and DON’Ts. The User Guide supplied 
with the cartridge contains a number of command description and program 
errors, and leaves a great deal of the work of figuring out Simons’ BASIC to 
the user. As you know, user guides are meant only as an introduction to the 
software, not as a definitive reference text or a tutorial, as this book is. 

Perhaps you are simply curious about this extended BASIC for your Commo- 
dore. If you are considering buying it, reading this book will convince you that 
Simons’ BASIC is a “‘must buy”! Your enjoyment in programming the Commo- 
dore will increase by being able to use more of the potential of your computer, 
taking advantage of over 100 additional programming commands. 

When using Simons’ BASIC, the resident BASIC of the Commodore 64 or 
Commodore 128 in the 64 mode remains unchanged. You can insert the car- 
tridge and continue using BASIC as you have been, never using a Simons’ 
BASIC command. Of course, this would be a sad loss of programming enjoy- 
ment. But it does enable you to use Simons’ BASIC at your own pace, slowly 
becoming familiar with the new programming commands a few at a time. 
While all of your current BASIC programs will run on Simons’ BASIC, your 
new programs using this extended BASIC language will require that the 
Simons’ BASIC cartridge be active. For this reason, it will be important to note 
the language used in each program you store on tape or disk after becoming a 
Simons’ BASIC programmer. 

Simons’ BASIC is a large extension of Commodore BASIC. The commands 
cover many different areas of programming. Therefore, for ease of use and ref- 
erence, this book is divided into nine topic sections, each subdivided into 
chapters. Each chapter covers a single topic of closely related commands. 

Since it’s not possible to give a brief description of Simons’ BASIC and do it 
justice, the following are summaries of each of the nine topic sections. 


Section I: Programming Aids We All Need 
These are the handy, time-saving commands that all programmers love! 
Automatic line numbering and renumbering, listing controls, and debugging 
aids make programming less tedious and more pleasurable. OLD will restore a 
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program that used to be permanently lost after executing NEW. There are pro- 
gram security aids for hiding code. Being able to define 16 functions and use 
them with the flick of a function key makes inputing often-used commands 
easy. Think of the keyboarding time you will save (not to mention those typos)! 
In addition, there are six new numeric functions and two commands for sim- 
plified disk handling. 


Section II: Added Input and Output Options 
There are eight additional character input options, many of which simplify 
character placement. Three methods of validating keyboard input offer new 
programming possibilities. There are also five additional output options. You 
can easily format numeric data, position and duplicate text, and output hard 
copy of a screen on a serial printer. 


Section III: More Programming Power 

This is the stuff of programmers’ dreams: sophisticated branching, condition 
testing and controlling loops, reusing variables within a program, structured 
programming to replace GOTO and GOSUB, and the ability to merge pro- 
grams. At last we have the IF. ..THEN.. . ELSE statement, and its test 
conditions are even reusable by employing another Simons’ BASIC state- 
ment—RCOMP ELSE. If you’ve been wondering about those “procedures” 
used in Pascal (and maybe listening to friends bragging about them), wonder 
no more. With Simons’ BASIC you will code, call, and execute procedures, 
and even merge them with other programs! 


Section IV: Low-Resolution Color and Graphics 
Now you have an easy way to access border and screen colors without using 
pokes. Colors for backgrounds, characters filled with color, and flashing colors 
are all included. And your brilliant screen display can be saved and recalled. 
Each character in the Commodore character set can be easily redefined as 
your own special graphic character. These graphic characters can then be 
printed the same as standard characters. 


Section V: High-Resolution Graphics 
Another section for everyone! Here at last is easy graphics. Plot lines, rectan- 
gles, circles, arcs and angles on a high-resolution, 320 by 200 pixel, screen. 
Change the plotting colors and change them back again. Create your own 
shapes and fill them with color, change their background color, rotate, and 
flash them! You can also add a few characters or text, then output your screen 
display on a serial printer. 


Section VI: Multicolor Graphics 
Here you are introduced to the second graphic screen—the multicolor 
screen. The same plotting commands available in high resolution are also 
available in multicolor. However, multicolor allows three foreground colors 
instead of just one! There is, of course, a trade-off, and that is somewhat lower 
resolution. All differences between plotting multicolor graphics and high-reso- 
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lution graphics are covered. You will have a good idea of when to make the 
trade-off of color for the lower resolution. 


Section VII: Sprite Graphics 

Here are those creative, magical movable objects, dear to the hearts of all 
programmers. These are the critters that give programs that extra sophistica- 
tion and excitement, whether it’s an educational or game program. This sec- 
tion shows how high-resolution and multicolor sprites are designed, colored, 
displayed, and moved. It also shows how they can be controlled, made to col- 
lide, and removed! Programming details are covered for using sprites on all 
three Simons’ BASIC screen types—low resolution, high resolution, and multi- 
color. 


Section VIII: Simons’ Sound 

Here again is the same ease of use for the Commodore 64’s music synthesiz- 
ing capabilities as for the creation of sprites. Except when using the pulse 
waveform, rather than having to POKE registers, Simons’ BASIC will do it for 
you! And even when using the pulse waveform, the Simons’ BASIC function, 
SOUND, makes this very easy. All of this is accomplished with just six new 
statements. You have the use of your computer’s three voices, four waveforms, 
and numerous sound envelopes. If you don’t choose to make music, you can 
create sound effects for your game programs. 


Section IX: Leaving the Keyboard 
Here are four functions to assist you in communicating with your computer 
without using the keyboard. Read functions are provided for joystick, pad- 
dles, and the light pen. 


As you use these commands in the programs throughout this book, the com- 
mands come to life and will become a part of your BASIC vocabulary. Each 
and every Simons’ BASIC command is covered in this handbook. 

After completing Section 1, Chapter 1, feel free to first browse through the 
book. You may wish to begin with the topic that most interests you. Program- 
ming aids covered in Chapter1 are used throughout this book because they 
eliminate or reduce programming ‘‘dog work.” If you choose to skip around in 
the book, be sure to first read that section’s Introduction. Each introduction 
, gives an overview of the commands covered in each of the section’s chapters 
and notes if they are dependent upon one another. Since some statements 
build on knowledge of statements covered in a previous chapter, some chap- 
ters must be read in chapter order. 

This book assumes a moderate knowledge of Commodore BASIC, upon 
which the Simons’ BASIC language is built. You do not, however, need to be 
an expert programmer. A little programming experience is sufficient. 

In browsing through this book you will notice several helpful aides in learn- 
ing Simons’ BASIC. The first, of course, is the organization of the book, with 
each section covering a specific type of programming. In addition, I have 
included an “illustrated commands” column with all programs demonstrating 
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more than one command. This enables you to flip through the book and easily 
see which programs use the command you are currently interested in. There is 
also an extensive Index, as well as the Simons’ BASIC Command Reference 
Listing—Appendix A—for quick reference of each command, statement, and 
function. Appendix B lists all of the tables and grids used throughout the book, 
which you may wish to reference. 

This book will provide many program ideas, as well as all of the information 
you need to use Simons’ BASIC well. So, sit back, relax, and enjoy a new pro- 
gramming experience! 


Limits of Liability and 
Disclaimer of Warranty 


The author(s) and publisher of this book have used their best efforts in prepar- 
ing this book and the programs contained in it. These efforts include the devel- 
opment, research, and testing of the theories and programs to determine their 
effectiveness. The author(s) and publisher make no warranty of any kind, 
expressed or implied, with regard to these programs or the documentation 
contained in this book. The author(s) and publisher shall not be liable in any 
event for incidental or consequential damages in connection with, or arising 
out of, the furnishing, performance, or use of these programs. 


Registered Trademarks 


Commodore 64, Commodore 64 User’s Guide, Simons’ BASIC cartridge and Simons’ 
BASIC User Guide are trademarks of Commodore Business Machines, Inc. 


Programming Aids 
We All Need 


Introduction 


The following is a brief overview, by chapter, of the 24 Simons’ 
BASIC programming aid commands. All of the command words are 
reserved words, and cannot be used in variable names. 


Chapter 1 


AUTO provides computer-generated line numbers, using a user-spec- 
ified starting line number and line number increment. 

RENUMBER will resequence the line numbers of the program in 
memory, using a user-specified starting line number and line number 
increment. 

PAGE enables the user to control the number of program screen lines 
displayed by the LIST command. Rather than listing an entire program, 
or listing specific statement lines, the program can be listed by “pages’’, 
each containing a user-specified number of lines. 

DELAY and the SHIFT key are used to control the speed at which a 
listing will be printed on the screen. 

OLD will retrieve a program cleared from memory by the NEW 
command. 

COLD clears memory and returns the system to the Simons’ BASIC 
title screen. 


Chapter 2 


TRACE displays each line number of a program as each statement 
line is executed, allowing you to follow the sequence of operation of the 
program. 
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RETRACE causes tracing to resume after stopping and, if necessary, 
editing a program. The last set of line numbers executed before the pro- 
gram was stopped is again displayed, and tracing is resumed when the 
program is rerun. 

DUMP displays the value of all non-array variables. This command 
may be used when a program is stopped either by using the RUN/STOP 
key or by a program terminator. This command may also be used as a 
program statement. 

FIND searches a program for a user-specified code or character 
string, and displays the line numbers of each occurrence. 

PAUSE halts program execution for a user-specified number of sec- 
onds. 

ON ERROR is used to trap any one of 19 specific programming 
errors. The error number and the line number in which the error 
occurred are stored in the variables ERRN and ERRLN. 

NO ERROR permits the display of the error number held in ERRN 
and the line number, held in ERRLN, in which it occurred. 


Chapter 3 


DISAPA: is used to specify that the code in a statement line is to be 
hidden. 

SECURE hides all program lines beginning with the DISAPA: com- 
mand. These lines then cannot be listed, providing program security of 
private or confidential code. 


Chapter 4 


The KEY command enables you to assign your own BASIC or 
Simons’ BASIC commands to the Commodore 64’s function keys. 
Using the Commodore logo key and CMDR with SHIFT, gives you 
eight more function keys, for a total of 16 programmable keys. 

DISPLAY enables you to list the commands currently assigned to the 
function keys. 


Chapter 5 


DIV returns the quotient resulting from a division of two positive, 
integer numbers. 

MOD returns the remainder of a division of two positive, interger 
numbers. 
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FRAC returns the fractional part of a number resulting from a 
numeric expression. 

% converts a number from binary to deeinael form. 

$ converts a number from hexadecimal to decimal form. 

EXOR performs an exclusive OR (XOR) between two numbers. 


Chapter 6 


DISK provides simplified liek entry, eliminating the need to specify a 
logical file number, device number, and secondary address. 

DIR provides a user-specified partial listing, or a complete listing, of 
a disk directory. 


Key to Entering Program Listings 


Keying conventions used in this section and throughout the book are: 


“TCLEAR]’ designates SHIFT plus CLR/HOME 
CMDR designates the Commodore logo key 
“(DOWN)” designates the CRSR down key 


If a symbol is to be repeated, the number of repetitions will be shown 
following the key, for instance, “[DOWN 2]’”. 

Additional key conventions needed in other sections will be listed in 
that section’s Introduction. 


Statement 
Numbers and 
Program Listings 


The program that will be used throughout this chapter, ‘“Numbering 
and Listing,” will demonstrate the AUTO, RENUMBER, and PAGE 
commands. If during this portion of the chapter you want to experi- 
ment with programs of your own, SAVE the Numbering and Listing 
program first, and LOAD it when you continue on in the chapter. The 
DELAY, OLD, and COLD command demonstrations may use either the 
chapter program or a program of your own. 


AUTO 


Simons’ BASIC still uses line numbers; however, now they can be 
automatically generated by the AUTO command. You choose both the 
starting line number and the line number increment. The starting line 
number specified will be the first line number generated, and each suc- 
ceeding line number will be increased by the increment specified. After 
the computer prints each line number, you enter only the statement(s) 
for that line. 


Command format: 


AUTO starting line number, increment 


The upper limit for increment is 255. Using an increment greater 
than 255 will give the error message 7ILLEGAL QUANTITY ERROR. 
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There is no default for either starting line number of increment. Both 
parameters must be used with the AUTO command. If they are not used, 
the error message PS YNTAX ERROR will be given. This may seem to 
be a limitation. However, the KEY command can be used to store the 
AUTO command with your preferred parameters, enabling you to use 
this preset AUTO command by simply pressing a function key. The 
KEY command is explained and demonstrated in Chapter 4. 
To demonstrate the AUTO command, 


ENTER: AUTO 180,198 


The computer printed READY, then the line number 100 followed by 
the cursor. The computer is waiting for a statement line to be entered. 

Now you will begin entering the demonstration program shown 
below. For guidance in entering the program, the line numbers are 
shown in parentheses to the left of the program listing. Remember— 
these line numbers are generated by the computer, and not typed by the 
user. 

After entering the first statement line, the second line number, 110, 
‘ will be printed. Continue to enter each statement line, in program 
order, next to the computer-generated line number. 


Numbering and Listing 


(196) PRINT "CCLEAR]'":PRINT "TESTING AUTO':PRINT 

(119) PRINT "LINE NUMBERS GENERATED BY THE'':PRINT 
"AUTO COMMAND ARE:" 

(126) FOR I=168 TO 238 STEP 19 

(136) PRINT I; 

(146) NEXT I 

(156) PRINT "CDOWN 2)" 

(168) PRINT "LINE NUMBERS GENERATED BY THE": PRINT 
"EIRST RENUMBER COMMAND ARE:"' 

(176) FOR I=6 TO 36 STEP 20 

(186) PRINT I; 

(198) NEXT I 

(200) PRINT "CDOWN 2]" 

(218) PRINT "PAGE 5 WILL BREAK THE PROGRAM LISTING" 

(226) PRINT "AFTER LINE NUMBERS: 188, 190, 288, 409, 
490 AND 528." 

(238) END 


After you have entered the last program line, simply press RETURN 


6 » I Programming Aids We All Need 


to cancel the AUTOmatic line numbering. Line number 240 cancels 
itself when entered. 

RUN and LIST the program. 

The output from the first FOR NEXT loop shows the statement num- 
bers generated by the AUTO command. Each line number was 
increased by 10 as specified in the second parameter, increment. 

Should you want to change the automatic line numbering while 
entering a program, do the following: 


1. Press RETURN to cancel AUTOmatic line numbering, the same as you 
would at the end of your program. 

2. Use the AUTO command again to specify the next statement number 
and the increment desired, and continue entering your program. 


As you know, the maximum line number that can be used on the 
Commodore 64 is 63999. This limit is the same when using Simons’ 
BASIC. If this line number is exceeded while using the automatic line 
numbering, the error message 7S YNTAX ERROR will be displayed. 

Now you will seldom have to enter line numbers again! 


RENUMBER 


We often expand a program shortly after it’s “finished” because we 
have thought of something that our program really can’t live without. 
Unfortunately, this sometimes means that we don’t have enough free 
line numbers where they’re needed. The next time this happens to you, 
RENUMBER may be able to come to the rescue. However, always con- 
sider the following before using this option. 


Use RENUMBER With Caution 
RENUMBER only renumbers program lines. It does not 
renumber line references used in program statements. Using 


RENUMBER will leave all of your GOTO, ON GOTO, 
GOSUB, ON GOSUB, CGOTO, ON KEY, RETURN, RE- 
STORE, and line referenced IF THEN and IF THEN ELSE 
statements incorrectly referenced in your program. 


If you have no line number references in your program statements, or 
have only a few and it’s worth changing them after renumbering, then 
RENUMBER will be useful. 
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Command format: 


RENUMBER starting line number, increment 


As with AUTO, there is no default for either starting line number or 
increment. Both paraments must be used with RENUMBER. Not using 
them will cause the error message 7S YNTAX ERROR to be displayed. 

Use the Numbering and Listing program to test RENUMBER. LIST 
the program, then 


ENTER: RENUMBER 180,28 


LIST the program again. 

Because the same starting line number was used, the first statement 
line remains 100. However, since a different increment was used, line 
110 is now line 120, line 120 is now line 140, and so on, with each line 
number incremented by 20 rather than 10. 

The renumbered program, shown below, will run exactly the same 
after being renumbered. 


Numbering and Listing 


(198) PRINT "CCLEAR]":PRINT "TESTING AUTO'':PRINT 

(120) PRINT "LINE NUMBERS GENERATED BY THE'':PRINT 
"AUTO COMMAND ARE:" 

(140) FOR I=168 TO 230 STEP 19 

(160) PRINT I; 

(188) NEXT I 

(206) PRINT "CDOWN 2]" 

(226) PRINT "LINE NUMBERS GENERATED BY THE'':PRINT 
"EIRST RENUMBER COMMAND ARE:" 

(240) FOR I=108 TO 368 STEP 20 

(260) PRINT I; 

(280) NEXT I 

(300) PRINT "CDOWN 2)" 

(326) PRINT "PAGE 5 WILL BREAK THE PROGRAM LISTING" 

(340) .PRINT "AFTER LINE NUMBERS: 108, 198, 280, 480, 
490 AND 520." 

(368) END 


RUN the program. The output from the second FOR NEXT loop 
shows the line numbers generated by the RENUMBER command. 
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When using RENUMBER, be careful to avoid exceeding the maxi- 
mum line number of 63999. 

Note: The RENUMBER command does not check for the line number 
limit of 63999 and will attempt to RENUMBER beyond this limit. For 
example, when testing this command with a program containing six 
statement lines and using RENUMBER 63000,1000, the line numbers 
generated were: 63000, 64000, 65000, 464, 1464, and 2464. The program 
did run correctly and could be saved, BUT the program could not be 
reloaded! The largest line number that BASIC can use is 65535, but 
the largest that can be altered from BASIC is 63999. The number 464 
was generated by subtracting the total bytes available on the Commo- 
dore 64—65536 (64K)—from the next line number to be generated— 
66000—i.e., 66000-65536=464. 

Now let’s look at what would happen if this program contained a 
statement with a line reference. Add the following statement line to the 
program in memory. LIST the program and 


ENTER: 298 IF I=388 GOTO 368 


Since the value of I will be 380, line 290 will cause a branch to the 
END statement. 

RUN the program. 

Now RENUMBER and LIST the program again. 


ENTER:  RENUMBER 199,39 
LIST 


Read the screen listing to ‘‘see” the effect of RENUMBER! The listing 
is also shown below. 


Numbering and Listing 


(168) PRINT "CCLEAR]":PRINT ''TESTING AUTO'': PRINT 

(138) PRINT "LINE NUMBERS GENERATED BY THE'':PRINT 
"AUTO COMMAND ARE:'' 

(168) FOR I=198 TO 238 STEP 18 

(198) PRINT I; 

(220) NEXT I 

(258) PRINT ''CDOWN 2)" 

(288) PRINT "LINE NUMBERS GENERATED BY THE':PRINT 
"FIRST RENUMBER COMMAND ARE:"' 

(318) FOR I=188 TO 368 STEP 20 

(346) PRINT I; 

(376) NEXT I 


1 Statement Numbers and Program Listings < 9 


(466) IF I=388 GOTO 368 

(430) PRINT "CTDOWN 2]" 

(468) PRINT "PAGE 5 WILL BREAK THE PROGRAM LISTING" 

(498) PRINT "AFTER LINE NUMBERS: 188, 198, 288, 489, 
498, AND 528." 

(528) END 


RUN the program. 

The result is: 7UNDEF’D STATEMENT ERROR IN 400. The state- 
ment line number referenced by line 400 is line number 360, the IF 
GOTO statement. This line number no longer exists due to 
renumbering. To correct this code, list the program and edit line 400 as 
shown below. 


496 IF 1=388 GOTO 520 


The program will now execute correctly, branching from line 400 to the 
END statement. 
Remember to be careful when renumbering! 


PAGE 


This command enables you to control the number of program screen 
lines (not the number of statement lines) displayed, breaking your pro- 
gram listing into “pages” of output. You must specify the number of 
screen lines you wish shown at one time. Each new “page”’ replaces the 
previous ‘“‘page” shown on the screen. PAGE will output the number of 
screen lines specified plus one, as discussed below. 


Command format: 


PAGE number of lines 


The parameter, number of lines, must be used, or the error message 
?SYNTAX ERROR will be given. For the PAGE command to work 
properly, the maximum number that can be specified for the number of 
lines parameter is 22. 

The following will cause a page length of 6 screen lines to be printed 
each time the RETURN key is pressed. Each “page” is discussed below. 


ENTER: PAGE 5 
LIST 
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The first line number in your program is displayed: number 100. 
Press RETURN. 

A new “page” appears. This listing shows the statement for the pre- 
viously listed line number (100), the next five screen lines of the pro- 
gram, and the number of the first statement that will be shown on the 
next “page’”’. 

Continue to press RETURN to view the next “‘page’’ of the program. 
Each “page” will include: the statement(s) for the line number shown 
on the previous ‘“‘page’’, the next 5 screen lines of your program, and 
the first line number of the next “‘page’’. Of course, the last “page” will 
contain the 1 to 6 screen lines remaining in the program. 

Paging is turned off by using the PAGE @ command. 


ENTER: PAGE @ 
LIST 


Now the program listed in the normal manner. 

It is important to remember that screen lines—NOT statement lines— 
are the criteria for paging. For the program in memory, the command 
PAGE 3 will demonstrate this when displaying the fifth and sixth 


pages. 


ENTER: PAGE 3 
LIST 


The first page will show line number 100. Press RETURN. 

The second page will show statement lines: 100, 130 (two screen 
lines), and 160. The line number 19@ will also be printed. Press 
RETURN. 

The third page will show statement lines: 190, 220, 250, and the first 
screen line of 280. No line number will be printed for the first state- 
ment line of the next “page”, because this page ends with an incom- 
plete statement line. Press RETURN. | 

The fourth page will show the second screen line of statement line 
280, and statement lines 310, 340, and 370. The line number 400 will 
also be printed. Press RETURN. 

The fifth page will show statement lines: 400, 430, and 460 (two 
screen lines). Statement number 490 will also be displayed. Press 
RETURN. 

The sixth and last page will show statement lines 4906 (two screen 
lines) and 520, completing the program listing. 

Of course you will normally be using paging with long programs, 
holding a full twenty lines on the screen at a time for program review 
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and/or debugging. For me, this is what makes the PAGE command very 
useful. However, you cannot edit program lines printed on the screen 
with the PAGE command. PAGE is for display only. To edit program 
lines you must end the PAGE listing, using the RUN STOP and 
RESTORE keys, in order to return the cursor. Then turn off paging 
with PAGE @ and LIST—the old-fashioned way—those program lines 
that need editing. (Note: Paging need not be turned off to edit state- 
ments. However, if paging is not turned off, you can only list and edit 
one page of program screen lines, the number of which was specified 
in the last PAGE command. If there are statements to be edited in sev- 
eral different parts of the program, this is inconvenient and PAGE 0 
should be used first.) 


DELAY and the SHIFT Key 


This is yet another way to control the printing of a program listing. 
This command is entered prior to the LIST command. The SHIFT key 
and the parameters of the DELAY command are used to control listing 
speed. When the SHIFT key is held down during program listing, the 
printing speed is controlled by the DELAY speed specified. The range 
of delay print speed is 1 to 255, with 1 providing the least delay and 255 
providing the maximum delay speed. 


Command format: 


DELAY print speed number 


The parameter, print speed number, must be used. There is no 
default. If a print speed number is not used, the error message ?SYN- 
TAX ERROR will be given. If a print speed greater than 255 is speci- 
fied, the error message 7ILLEGAL QUANTITY ERROR will be given. 
To test this command at the slowest speed on the program in memory, 


ENTER: DELAY 255 
LIST 


and immediately hold down the SHIFT key. 

Each time you release the SHIFT key, your program will resume list- 
ing in the usual manner. In this way you can control the listing speed of 
portions of the program, or all of the program. This is similar to using 
the CTRL key to slow listing speed with Commodore BASIC. However, 
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DELAY 255 slows listing speed to a much greater extent. (Note: The 
parameter @ slows listing speed to the same extent as 255.) 

If DELAY is a useful command for you, test various numbers to find 
the print speed that you find most useful and make a note of it on the 
Simons’ BASIC Command Reference Listing (Appendix A). After learn- 
ing the use of the KEY command, you may want to assign this DELAY 
speed to a function key. 


OLD 


This is a super fail-safe command for all of us! I doubt that there is a 
programmer who has never once entered the NEW command and not 
instantly regretted it. The OLD command can save us from this 
depressing error by returning the program cleared by NEW. However, 
you have to use the OLD command BEFORE ENTERING EVEN ONE 
NEW PROGRAM STATEMENT LINE. Once a new program line is 
entered, the previous program can no longer be retrieved. 


Command format: 


OLD 


Try out this life-saver command now. 


ENTER: LIST 
NEW 
LIST 
OLD 
LIST 


The program was cleared from memory by NEW, and recalled by the 
OLD command. 


COLD 


The COLD command clears memory and returns the system to the 
Simons’ BASIC title screen. Be patient after entering this command, 
because it takes several seconds to reset the computer to the start of 
Simons’ BASIC. Those of you who purchased Simons’ BASIC on tape 
or disk will love this software reset, preserving Simons’ BASIC so that 
you don’t have to reload it. 
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Command format: 


COLD 


Again, you can use the OLD command to restore your previous pro- 
gram IF NO NEW PROGRAM STATEMENT LINE HAS BEEN 
ENTERED. To try this command: 


ENTER: COLD 
LIST 
OLD 
LIST 


Now enter either NEW or COLD and you'll be ready for Chapter 2. 


Debugging Aids 


This chapter will use several demonstration programs. The first pro- 
gram will be used to demonstrate five individual commands: TRACE, 
RETRACE, DUMP, FIND and PAUSE in the immediate mode. A sec- 
ond program will demonstrate the combined use of TRACE, PAUSE, 
and DUMP as program statements. Used as statements, their effective- 
ness and versatility as debugging tools are greatly increased. A third 
program will be devoted to the error trapping and display commands 
ON ERROR and NO ERROR. 


TRACE 


This command provides a computer-generated program walk- 
through, displaying each program line number in a screen window as 
the line is executed. This can be useful for studying program flow to 
check for possible branching or logic errors. But I must warn you that 
you have to be a very quick reader to follow this line number listing. 

TRACE produces a window in the upper right-hand corner of your 
screen, showing a scrolling listing of the line numbers executed as the 
program runs. This listing shows a maximun of six line numbers at any 
one time. Scrolling and output can be slowed down somewhat by hold- 
ing down the Commodore logo key. 


Command format for turning on TRACE: 


TRACE 10 


The following program will be used to demonstrate how TRACE per- 
forms. Line numbers are shown with the program either for user entry 
or, if using automatic line numbering, for reference. To use automatic 
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line numbering, first enter AUTO 10,10 then the program lines as dem- 
onstrated earlier in this chapter. 


ENTER: 19 PRINT "CCLEAR]" 
20 PRINT "PAYROLL FOR PART-TIME 
EMPLOYEES" 
3@ PRINT "DEPT. #22, W/E 5/22/88" 
40 PRINT:PRINT "EMP #"', "HOURS", "PAY'': PRINT 
50 FOR I=1 TO 6 
6@ READ EN,H 
78 PRINT EN,H,'"'S"'He4 
80 TH=TH+H 
9@ NEXT I 
190 PRINT:PRINT "TOTAL", TH,"$"'TH#4 
118 DATA 11,23,12,28,13,30,14,25,15,18, 
16,17 
12 END 


This program will read the data employee number (EN) and hours 
worked (H) for six part-time employees paid at the rate of $4.00/hour. 
The output will be a very modest payroll listing for this department, 
along with total department hours and total pay. To turn on TRACE, 
RUN the program and slow the trace listing: 


ENTER: TRACE 18 
RUN 


and immediately hold down the Commodore logo key. 

Each program line number appeared in the TRACE window as it was 
executed. Figure 2.1 (page 16) shows your screen output after program 
' execution, with the TRACE window showing the last six statement 
lines executed. 

Note: The format of the output from this program will be greatly 
improved in Section 2, Chapter 6, by using the Simons’ BASIC com- 
mand, USE, that allows formatting of lists of numbers. 

Now we’ll edit this program to incorrectly put the hours accumulator 
(TH) outside the READ loop, and RUN the program with TRACE again. 


ENTER: 80 
95 TH=TH+H 
RUN 


and immediately hold down the Commodore logo key to slow the 
TRACE output. 
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As you can see, statement line 95 was read only once. Therefore, the 
value of TH is the last value of the variable H. 


TRACE has served its purpose. We will leave this incorrect code in 
the program to use with the next Simon’s BASIC command, RETRACE. 


PAYROLL FOR PART-TIME EMPLOYEES 
DEPT. 22, WE S/ 22/06 


ror” HOURS | PAY 


11 Pi, $ 92 
12 28 5 12 
13 33 $ 128 
14 fips $ 188 
15 18 $ 72 
16 17 


14] $ 564 


Figure 2.1: Use of TRACE Window. 


Until TRACE is turned off, the TRACE window will be displayed 


each time the program is run. Turning TRACE off is a simple matter, as 
shown below. 


Command format to turn off TRACE: 


TRACE 0 


When TRACE is turned off, the TRACE window disappears and the 
program executes normally. 
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ENTER: TRACE 8 
RUN 


TRACE has one “bug” that I have found, causing it to interfere with 
program operation under certain conditions. TRACE will not perform 
correctly in a program containing the three BASIC statements 
“(CLEAR]’, INPUT, and IF THEN. Such a program will only run cor- 
rectly if the “[CLEAR]’ statement is removed, and the screen is not 
cleared prior to running the program. This “bug” will be demonstrated 
in Chapter 3, page 30, using a program with this particular set of 
conditions. 


RETRACE 


If TRACE is on, the RETRACE command will generate the last 
TRACE window displayed for the previous execution of the program. 
The program could have ended either by using the RUN/STOP key or a 
program terminator (STOP or END). Before RETRACE is entered, the 
program may be edited and/or listed, and the screen cleared. 


Command format: 


RETRACE 


When the following commands are entered, TRACE will be turned on 
and the program will be RUN. Make a note of the final six line numbers 
that appear in the TRACE window. These are the line numbers that 
will be shown when RETRACE is executed. 


ENTER: TRACE 19 
RUN or RUN and press RUN/STOP 


Now LIST and edit the program and execute RETRACE, as shown 
below. The edited statements will change the program back to correctly 
accumulate total hours in variable TH by moving it back inside the I 
loop. 


ENTER: LIST 
88 TH=TH+H 
95 
RETRACE 
RUN 
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Hold down the CMDR key to slow printing of the output. 

The TRACE window showed the last six statements executed during 
the previous program run, before tracing for this run began. 

Clear the screen. To execute the program again with TRACE on after 
executing RETRACE and clearing the screen, you must move the cur- 
sor under the TRACE window, then enter RUN. 

If RUN is entered in the normal fashion, you will receive the error 
message 7UNDEF’D STATEMENT ERROR. (However, if after receiv- 
ing this error message you enter RUN again, both your program and 
TRACE will run correctly—without another error message.) 

If RETRACE is used after turning TRACE off (TRACE 6) you will 
receive the error message 7BAD MODE. Remember, RETRACE can 
only be used when TRACE is on. 

Move the cursor under the TRACE window, and 


ENTER: RUN 


The program ran correctly, again “tracing” the program statements 
in the TRACE window. 
Now turn TRACE off. 


ENTER: TRACE 8 


DUMP 


This command lets you print the values of all non-array variables 
used in a program. The values shown will be those contained in each 
variable when the DUMP command is executed. DUMP can be exe- 
cuted following a program break by using the RUN/STOP key, by a pro- 
grammed STOP, or after the program is run. 


Command format: 


DUMP 


Adding a character string variable to the program in memory will 
provide a good assortment of variables to demonstrate DUMP. 


ENTER: 15 C$=""SPEEDY DATA CO." 
95 PRINT "OUTPUT BY: "';CS 


RUN the program now in memory, then 
ENTER: DUMP 
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The screen display shows: 


C$="'SPEEDY DATA CO." 
17 

EN=16 

H=17 

TH=141 


As you will see later in this chapter, this command is also very useful 
when used as a program statement. 


FIND 


This command is used to search for specific code or character string 
occurrences in a program. All program line numbers in which the 
FIND code or character string occurs are displayed. 


Command format: 
FINDcode 


or 
FIND “character string”’ 


There cannot be any space between the command FIND and the code 
or character string given. A space will not cause an error message, but 
FIND will not execute. 

LIST the program in memory. FIND will be used to locate and dis- 
play the line numbers for each occurrence of: (1) the numeric variable 
TH, (2) the BASIC word DATA, (3) the character string “HOURS”, and 
(4) the character string variable C$. 


ENTER: FINDTH 
FINDDATA 
FIND''HOURS" 
FINDC$ 


You see that TH occurs in statement lines 80 and 1060, the DATA 
statement is in line 110, “HOURS?” is in line 40, and C$ occurs in state- 
ment lines 15 and 95. 

In a long program, FIND can be a super time-saver. If you wish to 
change a variable name (perhaps a reserved word crept in), add data 
values, change a character string, and so forth, FIND will conduct a 
free search for those statement lines. 
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PAUSE 


This command allows you to halt program execution for a specified 
number of seconds. PAUSE has many applications. We will look at sev- 
eral in this chapter, as well as in Section VI, Simons’ Graphics. 


Command format: 
PAUSE number of seconds 


or 
PAUSE “message” number of seconds 


When using the message option, the message must be enclosed in 
quotation marks and separated from the parameter, number of seconds, 
by a comma. 

For a quick demonstration of PAUSE, add the following statement 
lines to the program in memory. 


ENTER: 17 PAUSE ''5 SECOND PAUSE",5 
93 PAUSE 18 


The second pause of 10 seconds will seem quite long! LIST and RUN 
the program. 


Combining TRACE, DUMP, and PAUSE 


The following program demonstrates the use of these three com- 
mands as program statements with PAUSE allowing DUMP and 
TRACE to be used more effectively. By using PAUSE with DUMP we 
are able to read the value of program variables during program execu- 
tion. PAUSE will also halt TRACE for a longer look at the sequence of 
lines executed. 

To save keying time, you may enter the following program using 
automatic line numbering by first entering AUTO 10,10. If you use 
AUTO, do not copy the line numbers in the program listing. The three 
commands illustrated by this program are shown to the left of the pro- 
gram listing. 
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Commands 
Illustrated Program Listing 
TRACE 10 TRACE 18 

28 A=6 

30 B=7 

48 FOR I=1 TO 9 STEP 3 
DUMP 5@ DUMP 

66 PRINT A+B+I 
PAUSE 7® PAUSE 5 

88 NEXT I 

99 END 
RUN the program. 


Dumping variable values within the I loop while tracing program exe- 
cution and pausing the program to read the results of both DUMP and 
TRACE show exactly what is happening in the program. Not only is 
this an excellent debugging aid, but it’s an excellent tool for learning 
BASIC programming. Often “seeing is believing’ is very helpful to a 
learner. 


ON ERROR and NO ERROR 


Error trapping is provided by the ON ERROR command. This com- 
mand allows you to avoid a “program crash” by branching to another 
part of the program when an error is detected. After disabling error 
trapping, using NO ERROR displays both the error number (ERRN) and 
the number of the statement line in which the error occurred (ERRLN). 
Figure 2.2 lists the errors, by error number, that can be trapped by 
Simons’ BASIC. 


ERROR NUMBER ERROR DESCRIPTION 


1 Too many files 

2 File open 

3 File not open 

4 File not found 

5 Device not present 
10 NEXT without FOR 
11 Syntax 
12 RETURN without GOSUB 


13 Out of Data 
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14 Illegal quantity 

15 Overflow 

16 Out of memory 

1¢ Undefined statement 

18 Bad subscript 

19 Re-dimensioned array 

208 Division by zero 

21 Illegal direct 

22 Type mismatch 

23 String too long 
Figure 2.2 


Statement format: 


ON ERROR:GOTO line number 


This command is used either at the beginning of a program, or before 
that portion of a program where error trapping is required. The GOTO 
branches to the statement line containing the NO ERROR command 
and/or the PRINT statement for ERRN (error number) and ERRLN (line 
number in which the error occurred), as shown below. 

To turn off error trapping and print the error and line number found, 
use: 


Command format: 


NO ERROR:PRINT ERRN;ERRLN 


The PRINT statement following the NO ERROR command can, of 
course, include text and use a different separator. ERRN will contain 
the error number, and ERRLN will contain the line number in which 
the error occurred. 

The following program will trap five errors, one at a time, as they 
occur in the program. The errors are: illegal quantity, syntax, out of 
data, NEXT without FOR, and RETURN without GOSUB. After each 
error is trapped and the error and line number printed, the incorrect 
statement will be edited, and the program rerun to trap the next error. 
This process will be repeated until all five errors have been found and 
corrected. 
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To use automatic line numbering with the following program, enter 
AUTO 10,10 before entering the program. Line numbers are shown for 
program clarity and ease of program entry, and for anyone who 
chooses not to use automatic line numbering. The command illustrated 
is shown to the left of the program listing, and the error numbers are 
shown in parentheses to the right of the statements containing the 
error. Note that statement number 10 will cause the program to branch 
to statement line 150 when an error is encountered. Statement line 150 
will turn off error trapping (NO ERROR) and print the error number 
(ERRN) and line number in which the error occurred (ERRLN). 


Command 
Illustrated Program Listing Error # 


ON ERROR 19 ON ERROR:GOTO 158 
28 PRINT "'CCLEAR]" TAB(528) "TITLE IS 
ERROR" (14) 
36 GOSUB 128 
49 FOR I=1 T05 


5@ READ D (13) 
68 FOR J=1 T03 

78 PRITI,J,D (11) 
8 NEXT I 

98 GOSUB 128 

188 NEXT J (18) 


118 DATA 15,25,35,45 
128 REM SPACING ROUTINE 
138 PRINT: PRINT 


148 RETURN (12) 
NO ERROR 158 NO ERROR:PRINT "ERROR #''; ERRN; 
ERRN "IN LINE"; ERRLN 


ERRLN 


RUN the program. On encountering an error, the GOTO statement in 
line 10 sent the program to line 150 to turn off error trapping and print 
the error number and the line number in which it occurred. 

The error message reads: ERROR #14 IN LINE 20. LIST line 20. The 
quantity given for TAB is an illegal quantity, since it exceeds 255. Edit 
line 20 to read: 


28 PRINT TAB(52) "TITLE IS ERROR" 
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This statement line will cause the title to be printed in the center of the 
second screen line. 

RUN the program again to trap the next error. 

The error message reads: ERROR #11 IN LINE 70. LIST line 70. The 
syntax error is obvious; PRINT is misspelled. 

Edit line 70 to correct the misspelling: 


70 PRINT I,J,D 


To locate the next error, enter RUN. 

This error message reads: ERROR #13 IN LINE 50. LIST line 50. 
There is either a missing DATA statement or insufficient data values in 
the DATA statement. To find out which is the case: 


ENTER: FINDDATA 


The response is 110. LIST line 110 and add the value 55 to the end of 
the statement line. This statement should now read: 


118 DATA 15,25,35,45,55 


On to the fourth error! Enter RUN. 

The error message reads: ERROR #10 IN LINE 100. LIST the pro- 
gram. The problem is crossed loops. Lines 80 and 100 must be edited as 
follows: 


88 NEXT J 
198 NEXT I 


Now for the last error in this program. RUN the program. 

The error message reads: ERROR #12 IN LINE 140. There is no divi- 
sion between the main program and the subroutine. To correct this, 
enter the following statement line. 


115 END 


When the program is error free, ERRN will contain the number 128— 
meaning No Error, and ERRLN will contain the line number of the last 
statement line read. 

RUN the program. 

The message displayed is: ERROR #128 IN LINE 115, telling you that 
there are no further errors that Simons’ error trapping can detect in the 
program. 

Since the program is now error free, remove the error trapping and 
display statements. 
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ENTER: 10 
158 


RUN the error-free program. 

Of course, each of your programs will have a different error or errors 
needing trapping. Fortunately, Simons’ BASIC will be a very big help! 

This ends our tour of Simons’ debugging aids. Clear computer mem- 
ory for Chapter 3. 


NOTE: The OUT command is supposed to disable the last ON 
ERROR command. However, this command does not always function 
properly and in certain circumstances causes a system crash, losing the 
program in memory. Therefore, the OUT command is not covered in 
this book. It should be noted, however, that the powerful ON ERROR 
and NO ERROR commands perform error trapping excellently, without 
need for the OUT command. 


Program Security 
Aids 


This chapter will show you how to keep any portion of a Simons’ 
BASIC program secret by hiding spetific program code. The use of two 
Simons’ command—DISAPA: and SECURE—will prevent the code 
from being listed. 

Be sure to follow the caution of keeping an unsecured copy of each 
program that uses these security aids, because no one—not even you— 
will be able to read the code that has been SECUREd. 


DISAPA: 


This command specifies that all statements following DISAPA: on a 
program line are to be hidden. That line can then be secured, prevent- 
ing the line from being listed as part of the program. 


Statement format: 


DISAPA: statements 


The DISAPA: command automatically places four additional colons 
before a DISAPA: statement, making it necessary to allow space for 
them on the program line. Every statement line is, of course, limited to 
80 characters including RETURN. For a DISAPA: statement line it’s 75 
characters, 80 characters less five characters—four characters for the 
Simons’ inserted colons and one character for the RETURN key. 

The following program will demonstrate the DISAPA: command. If 
you wish to use automatic line numbering enter AUTO 10,10 before 
entering the program statements. Line numbers are shown in the pro- 
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gram listing for your reference or use if you choose not to use auto- 
matic line numbering. The command illustrated is shown to the left of 
the program listing. 


Command 
Illustrated Program Listing 


18 PRINT "CCLEAR]" 
28 A=A+1:1IF A>3 GOTO 68 
38 INPUT "USER CODE';UCS 
DISAPA 48 DISAPA:IF UC$="'"SIMONS' THEN PRINT 
"ENTRY GRANTED':GOTO 78 
5@ PRINT "NO ACCESS'':PRINT:GOTO 29 
68 PRINT "ENTRY DENIED" 
7® END 


LIST the program. 
Statement line 40 now reads: 


48 DISAPA:::::IF UCS=""SIMONS'" THEN PRINT "ENTRY 
GRANTED'':GOTO 78 


The four additional colons have been inserted. 

Note: If a DISAPA statement line is edited on screen by using the 
editing keys, four additional colons will be inserted each time the state- 
ment line is screen edited. So be sure there will be enough space on the 
program line. If there’s not enough space, retype the line. 


SECURE 


This command hides the code designated by the DISAPA: command, 
preventing the code from being listed. 


Command format: 


SECURE 06 


Note: This command might be hard to remember because most 
Simons’ BASIC commands using the parameter 0 turn off a command. 
You will just have to remember that SECURE is different. 
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As soon as this command is entered, you will no longer be able to list 
any statement line beginning with the DISAPA: command. Only the 
line number will show on the listing. 

REMEMBER, when using these commands in your own programs, 
SAVE an unsecured back-up copy of the program. 

To hide statement line 40 in the program in memory, 


ENTER: SECURE 8 


LIST the program. 

The statements in line 40 will no longer list. The user code is now 
secured. 

The program listing on your screen shows: 


16 PRINT " [¥] " 
20 A=A+1:IF A>3 GOTO 68 
3@ INPUT "USER CODE";UCS 


5@ PRINT "NO ACCESS'':PRINT:GOTO 20 
68 PRINT "ENTRY DENIED" 
76 END 


This demonstration program will give the user three opportunities to 
enter the correct user code. If the correct user code is not entered, 
access is denied. RUN the program. If you wish to test the program, 
first use your name for input, then use the user code: SIMONS. 

RUN the program. The program runs normally. 

These commands are invaluable for securing confidential informa- 
tion, such as employee salaries or student grades. Any number of state- 
ment lines may be secured by using DISAPA and SECURE. To demon- 
strate this, add the following program lines to the program in memory. 
To save keying in time, you may use AUTO 60,10 for the following 
statement lines. 


68 PRINT "ENTRY DENIED'': GOTO 128 

76 PRINT:PRINT ''SPEEDY DATA CO., DEPT. #22" 

88 PRINT:PRINT "EMP #'',"'SALARY': PRINT 

98 DISAPA:READ EN,SAL 

108 IF EN=-99 GOTO 128 

118 DISAPA:PRINT:PRINT EN,SAL:GOTO 98 

128 DISAPA:DATA 11,19508,12,14608,13,228000,14,31588, 
1518656, -99,,-99 

138 END 
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To SECURE lines 90, 110, and 120, 
ENTER: SECURE 8 


LIST and RUN the program. 

The program runs correctly, and no unauthorized person can read 
the confidential salary information. 

If you entered the user code SIMONS, your screen output is: 


USER CODE? SIMONS 
ENTRY GRANTED 


SPEEDY DATA CO.,DEPT. #22 


EMP: ¢ SALARY 


11 195808 

12 14698 

13 220808 

14 31588 

15 18658 
READY 


Figure 3.1: Output of Security Program. 


NOTE: When TRACE is used with a program containing a DISAPA: 
statement, TRACE will generate an additional line number, #14906, for 
each line containing a DISAPA: statement. This does not affect pro- 
gram operation or the operation of TRACE. 


30 » I Programming Aids We All Need 


Before using TRACE with the program in memory, the “[CLEAR]’ 
statement (10) must be removed. As mentioned in Chapter 2, this pro- 
gram has the particular sequence of statements that will cause incor- 
rect program operation when using TRACE. The sequence of state- 
ments is: “[CLEAR]’, INPUT, and IF THEN. With TRACE on, the IF 
THEN statement (line 40) will be ignored until after INPUT data is 
entered three times. The program will run correctly with TRACE on 
only if the clear/home statement is removed, and you do not clear the 
screen before running the program. For a demonstration of this ‘‘bug”’, 
turn on TRACE (ENTER: TRACE 10) and RUN the program without 
removing statement line 10. Then remove line 10 and RUN the program 
again. If you have a problem with the TRACE command and another 
program, try removing the clear/home statement if your program con- 
tains one. 

This concludes our work with the Simons’ BASIC program security 
aids, but not with this program. This program will be used to demon- 
strate the commands covered in the next chapter. If you are not going 
on to the next chapter immediately, SAVE the program now in memory 
for use with Chapter 4, Assigning Commands to the Function Keys. 


Assigning 
Commands to the 
Function Keys 


This chapter will use the security aids program from Chapter 3 to 
demonstrate the function key assignment command. As mentioned in 
Chapter 1, these commands eliminate the necessity for having a default 
option for Simons’ BASIC commands. You can set your own preferred 
default options for commands, using the programmable function keys. 
Of course, you can also program these keys for other BASIC com- 
mands, such as LIST and RUN. 

Simons’ BASIC provides 16 function keys—8 more than Commodore 
BASIC—and all 16 keys are programmable. The method of accessing 
the 16 functions using the four Commodore function keys is shown in 
Figure 4.1. Note that the odd numbered functions, f1 through f7, only 
require the function key to be pressed, and the odd numbered functions 
f9 through f15 require pressing function keys f1 through f7 and the 
Commodore logo key. The even numbered keys are always accessed 
while pressing SHIFT; f2 through f8 uses the function key and SHIFT, 
while f10 through f16 uses the f2 through f8 function keys and the 
CMDR and SHIFT keys. 


KEY 


This is the command used to program a function key to issue a user- 
specified command. You choose the function key and the command 
that is assigned, as shown below. 
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Accessing the 16 Function Keys 


Function fKey fKeyand fKeyand f Key and 
Number Only SHIFT Key CMDR Key CMDRand SHIFT Keys 

1 f1 

2 £2 

3 {3 

4 £4 

5 {5 

6 {6 

Ne {7 

8 {8 

9 f1 

10 f2 

11 £3 

12 £4 

13 f5 

14 {6 

15 {7 

16 £8 

Figure 4.1 


Command format: 


KEY function key number, ‘‘command” 


The function key number is, of course, any function key number , 1 
through 16. The command can be any Simons’ BASIC or Commodore 
BASIC command. The command must be enclosed in quotation marks. 
The length of the command is limited to 15 characters. Exceeding the 
15-character limit will not cause an error message. Your command will 
simply be truncated to 15 characters! This is an easy mistake to catch, 
since you will be using DISPLAY to list your function key commands. 

In case you cleared memory after the last chapter and didn’t SAVE 
the Chapter 3 program, the program listing follows. I have not included 
the DISAPA: statements in this listing, since they do not affect demon- 
strating the KEY and DISPLAY commands. Secured statements will 
execute exactly the same. Those of you using the Chapter 3 program 
can check the code below to “‘read”’ the secured lines in your program. 
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19 PRINT "CCLEAR]" 

20 A=A+1:if A>3 GOTO 698 

36 INPUT '"'USER CODE";UC$ 

49 IF UCS=""SIMONS'' THEN PRINT "ENTRY GRANTED':GOTO 78 
5@ PRINT "NO ACCESS":PRINT:GOTO 28 

60 PRINT "ENTRY DENIED'':GOTO 120 

76 PRINT:PRINT ''SPEEDY DATA CO., DEPT. #22" 
88 PRINT:PRINT "EMP #"',"'SALARY'':PRINT 

98 READ EN,SAL 

198 IF EN=-99 GOTO 128 

118 PRINT:PRINT EN,SAL:GOTO 98 

128 DATA 11,19588,12,14600,13,228000,14,31590, 
13) 18658 799-77 

13@ END 


The following commands will program function keys f1, f2, f9, f10, 
£13, and f14. 


ENTER: KEY 1,"'RUN" 
KEY 2,"'PAGE 19" 
Ker 9" Ulor' 
KEY 10,"'PAGE 9'' 
KEY 13,''NEW"' 
KEY 14,"0LD" 


As soon as the function key is pressed, the command programmed for 
that key will appear on your screen. You need only press RETURN to 
enter the command. 

Press f1 and RETURN to RUN the program. 

Press SHIFT f2 and RETURN to enter the PAGE 10 command. 

Now list the program by pressing CMDR f1 and RETURN. Continue 
pressing return until the entire listing prints. 

Turn off the PAGE command by pressing SHIFT CMDR f2 and 
RETURN. 

Again list the program by pressing CMDR f1 and RETURN. 

Clear memory by pressing CMDR f5 and RETURN. 

Return the program to memory by pressing SHIFT CMDR f6 and 
RETURN. 

This certainly demonstrates the benefits of assigning commands to 
the function keys. However, they are even more useful when a carriage 
return is included as part of the function key command. This eliminates 
the need to press the RETURN key. To do this, add + CHR§$(13) to the 
KEY command. (As you probably know, the fun¢tion CHR$ takes the 
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PET ASCII number that is assigned and converts it to the character it 
represents. The PET ASCII number 13 is the RETURN key.) 


Command format using the carriage return: 


KEY function key number, ‘‘command” + CHR§$(13) 


Remember: The command assigned must be enclosed in quotation 
marks. 
To change the f1 and f9 commands to include a carriage return, 


ENTER: KEY 1,''RUN'' + CHRS$(13) 
KEY 9,""LIST": + CHRS(13) 


Press f1 to RUN the program, then CMDR f1 (for function 9) to LIST 
the program. 

The function keys will remain programmed until the computer is 
turned off or the COLD command is entered. You can return a program 
to memory using OLD after the COLD command is entered, but you 
lose the function key commands. However, the functions assigned are 
not effected by clearing memory with NEW. 

It’s a good idea to write a short program to assign frequently used 
commands to the function keys and LOAD it whenever you use 
Simons’ BASIC. Remember, once you're spoiled by using the function 
keys, it will be hard to go back to typing and entering commands! 


DISPLAY 


To display function key assignments, use 


Command format: 


DISPLAY 


To review the function key assignments now in memory, 
ENTER: DISPLAY 
The following function key assignments are shown on the screen: 


DISPLAY 
KEY1,''RUN''+CHR$(13) 
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KEY2,'"'PAGE 19" 
KEY3,"""" 
KEY4,"" 
KEY5,"" 
KEY6,""" 
KEY7,'" 
KEY8,"" 

KEY9, "LIST'+CHRS (13) 
KEY1@,'""PAGE 6" 
KEY11,"" 
hella, 
KEY13,""NEW"' 
KEY14,""0LD"' 
Key." 
Sh as 


Before ending this chapter, add the following key command for auto- 
matic line numbering having a starting line number of 10 and incre- 
mented by 10. 


ENTER: KEY 5,"AUTO 18,18'' + CHRS(13) 


Most program listings throughout this book begin with statement line 
10 and are incremented by 10 so that line numbers for these programs 
can be generated by the stroke of a key! : 


Added Math 
Functions 


This chapter reviews the three new arithmetic functions available on 
Simons’ BASIC—DIV, MOD, and FRAC, as well as the two numeric 
conversion functions—% and $, and EXOR—a function to provide the 
ability to perform an exclusive OR. 

All of these functions may be used in both the immediate and pro- 
gram mode, 


DIV 


This function is used to return an integer quotient (result) of a divi- 
sion of two decimal numbers. These numbers are converted to floating 
point before the division is performed, and the remainder, when one 
exists, is ignored. 


Function format: 


DIV(x,y) 


In the argument (x,y), x is the dividend and y is the divisor. Both x and 
y must be positive numbers. 

Both of the following entries will produce the same result, since the 
remainder is ignored. 


A=DIV(66,3):PRINT A 
A=DIV(67,3)=:PRINT A 


Each will return a value of 22 for A. 
Remember, DIV can only use positive numbers. Using a negative 
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number for x or y, or both, will result in an ILLEGAL QUANTITY 
ERROR. 


MOD 


This function is used to return only the remainder, not the quotient, 
of a division of two positive whole numbers (integers). 


Function format: 


MOD{(x.y) 


In the argument (x,y), x is the dividend and y the divisor. The entry: 
X=2173:Y=64:C1=M0D(X,Y):PRINT C1 ” 


would return the result 61 as the value of C1, the remainder of 2173/64. 
Taken one step further, IF C1>@ then X is an odd number—often a nec- 
essary piece of knowledge. 

Remember, MOD can only use positive numbers. Using a negative 
number for x or y, or both, will result in an ILLEGAL QUANTITY 
ERROR. 


FRAC 


This function returns the fractional part, up to a maximum of nine 
digits, of either a decimal number (internally converted to a floating 
point number) or a floating point number. An individual number or a 
numeric expression may be used. 


Function format: 


FRAC(numeric expression) 


Both positive and negative numbers may be used in the numeric 
expression. For example: 


PRINT FRAC(-7) returns the value -.141592653 
PRINT FRAC(-22/-6) returns the value .666666667 
X=FRAC(288/3):PRINT X returns the value .333333343 for X 
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% 


This function converts a binary number into its decimal equivalent. 


Function format: 


%binary number 


The following entry would return 147 as the value of A. 
A=%100108011:PRINT A 


If a non-binary number is used as the argument, the error message 
NOT BINARY CHARACTER will be given. For example, omitting one 
digit of a binary number—as in 1661661—would result in this error 
message. 


$ 


This operator converts a hexadecimal number into its decimal equiva- 
lent. 


Function format: 


$hexidecimal number 


The following entry would return the decimal value of 49152. 
PRINT $COBD 


If a non-hexadecimal number is used as the argument, the error mes- 
sage NOT HEX CHARACTER will be given. In the above example, if 
the letter O had been mistakenly used in place of the zeros—$COOO— 
the error message NOT HEX CHARACTER would be given. 


EXOR 


This operator performs an exclusive OR (XOR) between two num- 
bers. 
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Function format: 


EXOR(n,n) 


The two numbers given in the EXOR argument are first converted 
into binary numbers. The two binary numbers are then compared bit by 
bit. If both bits are the same; that is, both are either 0 or 1, the corres- 
ponding bit is cleared (set to 0). If the bits compared are different; that 
is, one is 0 and the other is 1, the corresponding bit is not cleared (set to 
1). The value returned is the decimal equivalent of this bit by bit 
comparison. 

All three entries shown below would return the decimal value 109. 


X=%11111118: Y=%10010011:PRINT EXOR(X,Y) 
PRINT EX0R(254,147) 
PRINT EX0R(147,254) 


Using the first entry shown above, the bit comparison is performed as 
shown below. 


11111118 
19816011 
§1161181 which equals decimal 109 (1+4+8+32+64) 


All of these numeric aids, whether used singly or in combination, will 
be very useful in many programming situations. 


Disk Handling 


There are but two new disk commands available on Simons’ BASIC, 
but both will certainly be welcomed by Commodore 64 programmmers. 
The new DISK command shortens disk entries by eliminating a logical 
file number, device number, and secondary address when opening a 
channel to a disk drive unit. It then closes the channel after the opera- 
tion is executed. The new DIRectory command allows you to list spe- 
cific portions or all of a disk directory. (Note: Some Simons’ BASIC 
commands will not work correctly with DOS Wedge loaded, such as 
INSERT, INST, PLACE, and USE. Therefore, it would be best not to 
load Wedge when working with Simons’ BASIC.) 


DISK 


This command opens a disk file, performs the operation specified, 
then closes the file. 


Command format: 


DISK “‘operation”’ 


The parameter ‘‘operation’”’ must appear within quotation marks. 
This command replaces the following BASIC commands: 


1. OPEN logical file number,device number,secondary address 
2. PRINT #logical file number, 
3. CLOSE logical file number 


To format a new disk, with the name SIMONS, the entry would be: 
DISK '"'N@:SIMONS,@1"' 


Of course, the ‘“‘operation” must still specify ‘““N’’ for format new disk 
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followed by the disk drive number, separated by a colon from the disk 
name, and followed by the disk identification. 


To erase—or “scratch’”—a program named MAILER, the entry would 
be: 


DISK '"'S®@:MAILER" 


The “‘S”, of course, specifies ‘“‘scratch.”’ 


DIR 


This command lists all, or specific parts, of the disk directory for the 
disk in device #8. The options for listing a portion of the disk directory 
are: 


1. Files whose names begin with a particular character or characters. 

2. Files where a specific character or characters are in a particular position 
within the file name. 

3. A combination of the above two options. 


Command formats: 
DIR’$ to list the entire directory 


This command replaces the BASIC commands LOAD 
“$”’ 8:LIST. 


DIR’’$:character(s)* option 1 above 
DIR’’$:?character(s) option 2 above 
DIR’’$:?character(s)* option 3 above 


An example of option 1 would be to list all directory files beginning 
with the characters EMP. The DIR entry would be: 


DIR"'$: EMPx 


A possible listing would include the filess EMPNO, EMPADD, 
EMPSAL, EMPOT, etc. In other words, all files beginning with the 
three characters EMP. 

An example of option 2 would be a listing of all files ending with the 
characters DATA. You would, however, have to know how many let- 
ters precede the characters DATA, since each missing character must 
be represented by a question mark. If the files ending with DATA had 
four letters preceding DATA, the DIR entry would be: 
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DIR"$:?77272DATA 


Your listing would include such files as) SALEDATA, ENGRDATA, 
ACCTDATA, and so forth. 

An example of option 3 would be a listing of all files whose third and 
fourth letters are CO. Two question marks would be used to replace the . 
first two letters, which could be any two letters. An asterisk following 
CO would indicate that more characters could follow. The DIR entry 
would be: 


DIR'$S:77COx 


All filenames whose third and fourth characters were CO would be 
listed. 


Added Input and 
Output Options 


Introduction 


Following is a brief overview, by chapter, of the 16 Simons’ BASIC 
input and output commands. All of the command words are reserved 
words and cannot be used in variable names. 


Chapter 7 


CENTRE displays text centered in the middle of a screen line, with- 
out the user specifying the text length. This eliminates counting text or 
using LEN, and TAB or SPC, 

INSERT enables the programmer to create an expanded character 
string, by inserting one string into another. This command saves pro- 
gramming time and tedious keyboarding by eliminating the need to 
type in new strings or struggle with the string extractors—LEFT$, 
RIGHT$, and MID$. 

INST is used to overwrite a portion of a character string with another 
string, creating a new character string. This is another text time-saver 
for programmers. 

PLACE searches for user-specified characters (a sub-string) within a 
specified character string (a main string), and, if found, returns the 
starting location of the sub-string. This command is useful both for 
searching strings for specific characters, and for returning their sub- 
string location. This sub-string location can then be used with both the 
INSERT and INST commands. 

DUP provides an easy method of duplicating a character string a 
specified number of times, thereby creating a new, and larger, charac- 
ter string. 
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CSET allows you to switch between the two Commodore 64 character 
sets—the upper case/graphic character set and the upper/lower case 
character set. 

INV causes character background to reverse; normal characters are 
displayed in reverse field and reverse field characters are displayed 
normally. 


Chapter 8 


INKEY is used to test for and store the value of a function key input 
from the keyboard. It is used as the numeric variable of an ON GOTO 
or ON GOSUB statement using the function key number input for 
branching. This is a valuable programming tool for menu-driven pro- 
grams. 

ON KEY is used for accepting a user-specified input character from 
the keyboard, and branching based upon the character input. 

RESUME is a companion command for ON KEY, performing a 
branch back to the last ON KEY command performed. 

FETCH allows the programmer to limit the program user’s keyboard 
input by controlling the type (alphabetic or numeric) and number of 
characters accepted as input. 


Chapter 9 


AT is a PRINT function used to position text at a user-specified 
screen location using both row and column parameters. This eliminates 
the need to use the cursor control keys and the TAB or SPC functions 
to position text. 

USE is the command that formats lists of numbers—aligns the deci- 
mal point. It’s use is obvious for any type of financial reporting. 

MOVE is used to duplicate a specified portion of the screen, and dis- 
play the duplicate at a given screen location. 

OPTION is the command used to print a program listing with all 
Simons’ BASIC commands highlighted in reverse-field. 

HRDCPY is the statement used to print hard copy of a low-resolution 
screen (the normal screen-type) on a serial bus printer. 


Key to Entering Program Listings 


Additional key conventions used in this section and throughout this 
book are: 
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“THOME]” designates UNSHIFTED CLR/HOME 
Graphic characters will be separated by a comma, and represented by either 
SHIFT or CMDR and a key. 


If a character is to be repeated, the number of repetitions will be 
shown directly after the key. 


oo, 


Character String 
. Input Options 


This chapter covers the six Simons’ BASIC methods used to position 
or alter character strings. When possible, these commands will first be 
demonstrated in the immediate mode. Then a program will be devel- 
oped to accommodate each new command reviewed. Therefore, do not 
clear computer memory during this chapter without first saving the 
demonstration program. When you are ready to continue the chapter, 
LOAD the program back into memory. 


CENTRE 


Centering text on the screen is an easy task with this command. The 
only difficulty is remembering the English spelling of the command 
word. Remember, David Simons is a young Englishman! 


Command format: 
CENTRE‘“‘character string”’ 
or 

CENTRE string variable name 


Statement format: 
CENTRE*“character string”: PRINT 
or 

CENTRE string variable name:PRINT 
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For CENTRE to function correctly, the string cannot exceed 39 char- 
acters. If the string is longer than 39 characters, the string will be bro- 
ken into two lines, with neither line centered. No error message will be 
given. 

Because CENTRE does not force a carriage return, it must be fol- 
lowed by PRINT unless it is the last program statement containing a 
display command. If a carriage return is not used, the next character(s) 
displayed will begin at the end of the centered text. If a second CEN- 
TRE statement follows without using a carriage return, that character 
string will not be centered. 

To display ‘“SIMONS’ BASIC” centered on a screen line, enter the 
following CENTRE command. 


CENTRE "'SIMONS' BASIC" 


To demonstrate CENTRE statements, the following program will dis- 
play a three-line centered address. If you wish to use automatic line 
numbering when entering this program, enter AUTO 10,10,—or, if your 
function keys are still programmed as they were in Chapter 4, use f5. 
Again, line numbers are shown for program clarity and ease of entry. 


Program Listing 


18 PRINT "CCLEARI':PRINT 

20 CENTRE "SIMONS' ARCADE": PRINT 
38 CENTRE '120@ WILSON DRIVE": PRINT 
40 CENTRE "WEST CHESTER, PA. 19388" 
5@ END 


Run the program. Lines 20, 30, and 40 are centered on your screen. 
To demonstrate what happens when CENTRE is not followed by a car- 
riage return, LIST the program, remove the PRINT statement from 
line 26, and add the following statement line. 


ENTER: 45 PRINT "INVOICE NUMBER 1924" 


RUN the program. 

The CENTRE statement on line 30 was not performed properly 
because it was not preceded by a carriage return. The PRINT statement 
on line 45 begins at the end of the previous CENTRE character string, 
because it was not preceded by a carriage return. 

As long as you remember to include a carriage return, either through 
PRINT alone or PRINT CHR$(13) followed by a semi-colon, CENTRE 
will work perfectly in your programs. 
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To demonstrate the use of CENTRE with a string variable, and add 
back the carriage returns, LIST the program and enter the following 
program changes. 


28 A$S=""SIMONS' ARCADE": CENTRE A$:PRINT 
43 PRINT: PRINT 


RUN the program. The centered strings and the printed text are now 
displayed correctly. 

Leave your computer on or save this program, since we will be add- 
ing to it throughout this chapter to demonstrate each chapter com- 
mand. 


INSERT 


This statement allows you to expand a character string by inserting 
one string into another. It does not insert characters at the beginning 
or end of a string. For combining strings in this way, continue to use 
concatenation. Concatenation is the combining (adding together) of 
strings, as in A$+B$+C$. 


Statement format: 
INSERT{(‘‘sub string’’,“‘main string’’,insert position of sub- 
string) 


or 
INSERT{(string variable name,string variable name,insert pos- 
ition of sub-string) 


INSERT may only be used as a program statement. It will not perform 
correctly used as a command. The insert position of the sub-string 
parameter specifies the last position of the main string before inserting 
the sub-string. For example: to insert the sub-string “STATEMENT” 
between the two words of the main string “INVOICE NUMBER”, the 
position for sub-string is 8; the seven letters of INVOICE plus the space 
following INVOICE. The sub-string “STATEMENT” will begin one 
position beyond the insert position number. 

Either a character string or string variable may be specified in the 
INSERT statement. The string is limited to 255 characters. A string 
greater than 255 characters will cause the error message 7CREATED 
STRING TOO LONG. Attempting to add to the end of a main string by 
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specifying an insert position greater than the length of the main string 
will cause the error 7INSERT PARAMETER TOO LARGE. 

For a demonstration of this command, if the chapter program is still 
in memory, which I hope it is, LIST the program and add the statement 
lines shown below. For those of you who have cleared memory and 
haven’t saved the program or are reading but not keying in, the pro- 
gram is shown below in its entirety. 


Listing of Chapter Program 


18 PRINT "CCLEARI":PRINT 

20 AS="'SIMONS' ARCADE'': CENTRE A$S:PRINT 
30 CENTRE '1206 WILSON DRIVE":PRINT 

40 CENTRE "WEST CHESTER, PA. 19389" 

43 PRINT:PRINT 

45 PRINT "INVOICE NUMBER 1924" 

5@ END 


When adding the following lines, be sure to leave a space at the end 
of both character strings, ‘““PENNY ” and “STATEMENT ”. The state- 
ment lines to be added are: 


25 S$="'PENNY '' 
44 BS=INSERT(S$,A$,8):PRINT BS 
45 PRINT INSERTC'STATEMENT '','"INVOICE NUMBER'',8) 


RUN the program. 


INST 


This statement is used to overwrite a portion of a main string with a 
sub string. 


Statement format: 
INST(‘‘sub-string”, “main string” insert position of sub-string) 


or 
INST(string variable name,string variable name,insert posi- 
tion of sub-string) 


INST may only be used as a program statement. It will not perform 
correctly used as an immediate mode command. Insert position is deter- 
mined and specified in the same way for INST and INSERT. 
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Either a character string or string variable may be specified in the 
INST statement. The string is limited to 255 characters. A string greater 
than 255 characters will cause the error message 7CREATED STRING 
TOO LONG. 

For those of you who may be reading this book but not keying in, 
listed below is the chapter program, as it stands now, which we are 
modifying for each new chapter command. 


Listing of Chapter Program 


19 PRINT "CCLEARI]":PRINT 

26 AS=""SIMONS' ARCADE'': CENTRE A$S:PRINT 

25 S$=""PENNY '"' 

3@ CENTRE ''1208 WILSON DRIVE": PRINT 

40 CENTRE "WEST CHESTER, PA. 19380" 

43 PRINT:PRINT 

44 BS=INSERT(S$,A$,8):PRINT BS 

45 PRINT INSERTC"STATEMENT ",""INVOICE NUMBER", 8) 
58 END 


LIST the program in memory and add the following statements for a 
demonstration of INST. 


46 PRINT:PRINT 
47 PRINT INST('VIDEO'', BS, 8) 


The sub-string ‘““VIDEO” will replace the characters PENNY in the 
character string B$. RUN the program. This new character string can 
first be created, then printed, enabling you to retain the new string in 
memory. Change statement line 47, as follows. 


47 CS$=INST("VIDEO',BS,8):PRINT CS 


RUN the program. 

Remember that the sub-string overwrites the main string. Take care 
that the sub-string is not larger than the portion of the main string that 
you wish to overwrite. For example, using INST to overwrite the char- 
acters PENNY with “COMPUTER” would also overwrite the space fol- 
lowing PENNY and the AR of ARCADE because COMPUTER is three 
characters larger than PENNY. To demonstrate this, add the following 
statement line to the program in memory, and LIST and RUN the pro- 
gram again. 


47 PRINT:PRINT INST(C''COMPUTER', BS, 8) 
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Of course, if you are overwriting the last word in a main string, it 
doesn’t matter if the sub string is longer than that word. Change state- 
ment line 47 as follows, and RUN the program again. 


47 PRINT:PRINT INSTC''COMPUTER GAMES", B$,14) 


PLACE 


This command eliminates the need to count main string characters 
for the insert position when using INSERT or INST. PLACE searches a 
main string for the specified sub-string and returns the character posi- 
tion of the sub-string. If the main string does not contain the specified 
sub-string, a value of @ is returned. 


Statement format: 
PLACE(“sub-string”’,‘‘main string”’) 


or 
PLACK(string variable name,string variable name) 


PLACE should only be used within a program. It will not always per- 
form correctly used as an immediate mode command. The length of the 
sub-string must be less than the length of the main string. If the sub- 
string is longer than the main string, a value of 6 will be returned. 

The position value returned by PLACE can be printed or stored as a 
numeric variable. This position value is the position of the first charac- 
ter of the sub-string found in the main string. This is one greater than 
used for the insert position parameter of INSERT and INST. Here are 
several examples: 

PRINT PLACE(“ACCOUNTS”,“ACTIVE ACCOUNTS PAYABLE”) 
returns the value 8. 

PRINT PLACE(“PAYABLE’,““ACTIVE ACCOUNTS PAYABLE’’) 
returns the value 17. 

PRINT PLACE(‘‘ACTIVE’’,“ACTIVE ACCOUNTS PAYABLE’) 
returns the value 1. 

To demonstrate the usefulness of PLACE, add the following state- 
ment line to the program in memory, and LIST the program. 


47 P=PLACE(C''PENNY',BS):PRINT INST(C''BASIC",BS,P-1) 
:PRINT "CDOWN 2)" 
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Again, for those of you who are not keying in this program, it is listed 
below in its entirety—including the new line shown above. 


Listing of Chapter Program 


19 PRINT "CCLEARI]":PRINT 

29 A$=""SIMONS' ARCADE": CENTRE A$:PRINT 

25 S$=""PENNY "' 

36 CENTRE ''1208 WILSON DRIVE":PRINT 

49 CENTRE "WEST CHESTER, PA. 19380" 

43 PRINT:PRINT 

44 BS=INSERT(S$,A$,8):PRINT BS 

45 PRINT INSERTC'STATEMENT "',"'INVOICE NUMBER", 8) 
46 PRINT:PRINT 

47 P=PLACE(''PENNY'',BS):PRINT INST(''BASIC',B$,P-1): 
PRINT "CDOWN 2]" 

5@ END 


The PLACE statement will store the position value of PENNY in the 
character string SIMONS’ PENNY ARCADE in the numeric variable P. 
The PRINT statement will use the value of P minus 1 to overwrite 
PENNY with the word BASIC. The value of P-1 must be used because 
the INST statement uses an insert position of one space less than the 
location position returned by PLACE. 

RUN the program. By using PLACE, you did not have to know the 
location of the sub-string before using INST. 

PLACE can also be used to find the correct insert position for using 
INSERT to add to a character string, as the following statement line 
demonstrates. 


ENTER: 48 PP=PLACE(''ARCADE", BS) : PRINT 
INSERT(C''POWER '',BS,PP-1) 


The PLACE statement will locate the position of the word ARCADE 
in B$. The position value obtained will correctly locate ““POWER”’ in 
front of “ARCADE” in the B$ character string, using the INSERT com- 
mand. The new character string will then be displayed. 

RUN the program. 


DUP 


This command provides an easy method for creating a new, and 
larger, character string by duplicating it a defined number of times. 
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This is particularly useful for inserting spaces into a character string or 
for repeating characters. 


Command format: 
DUP(‘‘string” duplication number) 


or 
DUP(string variable,duplication number) 


DUP can be used as an immediate mode command or as a program 
statement. The string created by DUP cannot exceed 255 characters. A 
string longer than 255 characters will produce the error message ?7CRE- 
ATED STRING TOO LONG. 

Following are two examples of the use of DUP, using the immediate 
mode. The use of DUMP following these commands will display the 
values of the variables created by the commands, as well as the variable 
values from the program in memory. 


ENTER: PRINT DUPC''TOUCHDOWN! '',3) 
AS=""ANNUAL SUPER '':B$=DUP('' '', 89) :C$=DUP 
C"SALE! '',3):PRINT A$;B$;C$ 
DUMP 


For those of you who are not keying in, the chapter program, as it is 
now in memory, is shown below. 


Listing of Chapter Program 


19 PRINT "CCLEAR]'': PRINT 

28 A$="'SIMONS' ARCADE":CENTRE A$:PRINT 

25 S$=""PENNY "' 

3@ CENTRE '1208 WILSON DRIVE'":PRINT 

48 CENTRE "WEST CHESTER, PA. 19388" 

43 PRINT: PRINT 

44 BS=INSERT(S$,A$,8):PRINT BS 

45 PRINT INSERTC'"STATEMENT '',''INVOICE NUMBER", 8) 
46 PRINT: PRINT 

47 P=PLACE("PENNY',BS) :PRINT INST("BASIC',B$,P-1): 
PRINT '"'[DOWN 2)" 

48 PP=PLACE(C"'ARCADE",BS):PRINT INSERTC''POWER "',BS, 
PP-1) 

5@ END 
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LIST the program in memory and add the following statement lines 
to demonstrate DUP in the program mode. Be sure to leave four spaces 
at the end of the character string SIMONS’. 


49 FOR I=1 TO 6:PRINT:NEXT "I 
5@ PRINT DUP("SIMONS' ",4) 


These statements will create a string of SIMONS’ across the bottom 
of the screen. RUN the program. 


CSET 


This command allows you to switch between the two Commodore 64 
character sets—the upper case/graphic character set and the upper! 
lower case character set. 


Command format: 


CSET n 


The parameter n designates one of three functions, as shown below. 
Only the first two functions are used with low resolution screens (40 
columns by 25 rows). 


© specifies the upper case/graphics character set. 

1 specifies the upper/lower case character set. 
+2 re-displays the last high-resolution or multicolor graphics screen. 
+ CSET 2 will be reviewed in Chapter 17. 


The character set specified will affect the output on the entire screen. 
To alternate between character sets either: (1) the screen must first be 
cleared, or (2) program execution must be temporarily stopped using 
the PAUSE command and the characters “replaced.’”’ Note: You cannot 
use the easy Commodore BASIC method of shifting character sets— 
SHIFT +CMDR—when using the Simon’s BASIC cartridge. 

Clear your screen and enter the following commands in the immedi- 
ate mode. The character string ““SIMONS’ BASIC’’ will be printed first 
in lower-case letters. Then the display will be changed to upper-case let- 
ters, and back to lower-case letters. 


CSET 1:PRINT "CDOWN 5]"' TAB(12) ''SIMONS' BASIC": 
PAUSE 3:CSET @:PAUSE 3:CSET 1 
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Enter CSET 6 to return the screen to the upper-case/graphic charac- 
ter set. 
Printed below is the latest version of the chapter program in memory. 


Listing of Chapter Program 


18 PRINT "CCLEAR]": PRINT 

26 AS="'"SIMONS' ARCADE'': CENTRE A$:PRINT 

25 S$="'PENNY "' 

36 CENTRE '1286 WILSON DRIVE": PRINT 

4®@ CENTRE "WEST CHESTER, PA. 19388" 

43 PRINT:PRINT 

44 BS=INSERT(S$,A$,8):PRINT BS 

45 PRINT INSERTC''STATEMENT ","'INVOICE NUMBER", 8) 
46 PRINT:PRINT 

47 P=PLACE("'PENNY',BS):PRINT INST('BASIC'',B$,P-1): 
PRINT "CDOWN 2]" 

48 PP=PLACE(''ARCADE",BS):PRINT INSERT(C''POWER "',BS, 


PP-1) 
49 FOR I=1 TO 6:PRINT:NEXT I 
5@ PRINT DUP("'SIMONS' =", 4) 


LIST the program in memory, and add the following statement to 
produce screen output in lower-case letters. 


22 CSET 1 


RUN the program, then enter the command CSET 6 to restore the 
upper case character set. 


INV 


This command can be used in place of the RVS ON and RVS OFF 
keys. INV reverses the background of characters contained within a 
user-specified screen area. Characters currently displayed on a normal 
background will be displayed in a reverse field by INV, while charac- 
ters currently displayed on a reverse field will be displayed normally. 


Command format: 


INV row,column,width,depth 
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The four parameters of INV designate the screen area within which 
the character display is to be changed. Since INV uses a low-resolution 
screen, rows are numbered 0 through 24 and columns are numbered 0 
through 39. Width specifies the number of columns to be changed, 
while depth specifies the number of rows to be changed. 

Clear your screen and enter the following commands in the immedi- 
ate mode to display the character string ‘‘SSIMONS’ BASIC” in reverse 
field, pause 3 seconds, and change back to a normal field. 


PRINT "CDOWN 5]'' TAB(12) "SIMONS' BASIC":INV 7,12, 
13,1:PAUSE 3:INV 7,12,13,1 


If the exact position of the characters to be changed is not known, 
simply designate a large enough screen area in INV to include the char- 
acters to be changed. 

LIST the demonstration program in memory. Add the INV statement 
shown below to display the character string printed in line 20 in both 
lower case and reverse field. 


23 INV 8,5,30,5 


RUN the program. 

Since INV only affects what has already been printed, a large screen 
area can be specified by width (30) and depth (5). The exact location of 
“simons’ arcade” did not have to be specified. To include the second 
line of text in INV command, change statement number 23 to 35 and 
remove statement number 23. RUN the program again. 

To include the first three lines of print, change statement number 35 
to 55 and remove statement number 45. RUN the program again. Enter 
CSET 6 to change the character set back to upper-case. 

The seven Simons’ BASIC commands reviewed in this chapter will 
add a great deal of flexibility to the format and appearance of your 
programs. 


Input Validation 


This chapter will use a demonstration program for each of the three 
Simons’ BASIC methods of validating data input from the keyboard— 
INKEY, ON KEY and RESUME, and FETCH. INKEY is used to test for 
and store the value of a function key input. ON KEY is used for accept- 
ing a user-specified input character from the keyboard and branching 
based upon that input. RESUME is a companion command for ON 
KEY, performing a branch back to the last ON KEY command per- 
formed. And FETCH limits the type of input and number of characters 
accepted. At the end of the chapter, the three input commands will be 
used together in a summary demonstration program. 


INKEY 


INKEY is a numeric variable used to hold the number of the function 
key input from the keyboard. This variable is the argument used for an 
ON GOTO or ON GOSUB statement to perform a conditional branch 
based on the function key input. INKEY recognizes the function keys f1 
through f8, providing eight branching possibilities. Because the value 
of INKEY is input from the keyboard, the statement must be placed into 
a loop, continuing the keyboard scan until a function key is pressed. 
This is the same programming technique used with the GET statement. 
The format for the INKEY statements is shown below. 


Statement format: 
ON INKEY GOTO statement line list:GOTO the INKEY state- 
ment line 


or 
ON INKEY GOSUB statement line list! GOTO the INKEY 
statement line 
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This statement will pause a program until one of the function keys, f1 
through f8, is pressed. When a function key is entered, the ON GOTO 
branch is made using the number of the function key pressed to choose 
from the statement line list. 

The following program demonstrates ON INKEY GOTO, using all 8 
function keys. Use f5 (if it is still programmed for AUTO 10,10), enter 
AUTO 16,10, or enter the line number shown in the listing below when 
entering this program. 


Program Listing 


1@ PRINT "PRESS ANY FUNCTION KEY, F1 THROUGH F8" 
28 ON INKEY GOTO 38,40,58,60,70,88,98,190:GOTO 20 
36 PRINT ''F";INKEY,"LINE 38'":GOTO 18 

49 PRINT "'F''; INKEY,"'LINE 40":GOTO 19 

5@ PRINT "'F''; INKEY,"'LINE 58'':GOTO 18 

6@ PRINT "F's; INKEY,""LINE 66":GOTO 18 

7H PRINT "F";INKEY,"'LINE 78'':GOTO 18 

80 PRINT "F's INKEY,"LINE 86":GOTO 19 

96 PRINT "F';INKEY,"LINE 98'':GOTO 18 

198 PRINT "'F''; INKEY,"LINE 188'':GOTO 18 

118 END 


Each time a function key is pressed (touch the key lightly, or you’ll 
get a double response), the PRINT statement branched to will display 
the function key number (the value of INKEY), and the program line 
number being performed. 

RUN the program, testing each of the eight function keys, in any 
order, and press the RUN/STOP key to end the program. 

Clear computer memory and enter the following short program using 
ON GOSUB with the function keys f1, f2, and f3. Enter AUTO 10,10 for 
automatic line numbering, or enter the line numbers shown. 


Program Listing 


19 PRINT "PRESS F1, F2, or F3" 

20 ON INKEY GOSUB 38,40,58:GOTO 28 
3@ PRINT "'F'; INKEY,"LINE 38's RETURN 
49 PRINT "F''; INKEY,"'LINE 48'': RETURN 
5@ PRINT "F's INKEY,"'LINE 5@'': RETURN 


Only function keys f1 through f3 can be input, because only three 
statements are specified for branching. 


8 Input Validation < 59 


RUN the program, pressing a function key each time the program 
halts. Press the RUN/STOP key to end the program. 
INKEY will be used later in the chapter in a menu-driven program. 


ON KEY 


This command scans the keyboard for a valid character input. The 
input character is “valid” if it is a character specified in the ON KEY 
statement. Because the value of ON KEY is input from the keyboard, 
the statement must be placed into a loop until a function key is pressed. 
Again, this is the same programming technique used with the GET 
statement. 

Use of ON KEY requires three statements, as shown below. 


Statement format: 
ON KEY ‘‘characters”’,:GOTO line number 
GOTO the ON KEYstatement line 

or 
ON KEY string variable,;GOTO line number 
GOTO the ON KEY statement line 


The ON KEY statement specifies the character(s) or string variable to 
be used for the keyboard scan. Note that this statement must be sepa- 
rated from the GOTO statement by a comma and a colon. The GOTO 
statement following ON KEY is used to branch out of the scanning rou- 
tine. The second GOTO statement causes the continuous keyboard scan 
and must appear on a separate statement line. If this statement is 
entered on the same statement line the program just will not run prop- 
erly. You will probably not get an error message, although I did encoun- 
ter a TYPE MISMATCH error once for this error. 

Although many characters may be specified in the ON KEY state- 
ment, only one of those characters can be input. Any character not 
specified in the ON KEY command will be ignored. When one of the 
specified characters is input, the GOTO statement branch following the 
ON KEY command is performed. 

The ASCII character code number of the character input for the ON 
KEY command is stored in the variable ST. The value of CHR$(ST), or 
ST, can then be used in or by another statement, such as decision mak- 
ing and branching statements. 
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Character Code 


Space 
I 


# 


$ 
% 
& 


— 


ow fh W NS 


32 
33 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
46 
49 
50 
31 
32 
33 


Figure 8.1: Chart showing the valid ON KEY Characters. 


Valid ON KEY Characters 


Character Code 


6 


7 
6 
9 


aA 


zs oaonrmeoo®gsereenv ii 


34 
35 
36 
a7 
36 
39 
60 
61 
62 
63 
fd 
65 
66 
67 
66 
69 
70 
71 
72 
73 


Character Code 


J 


*<<cuanaownwAowreeztzxzrrR, 


eo See 


74 
75 
76 
77 
76 
79 
60 
61 
62 
83 
64 
65 
66 
67 
86 
69 
90 
91 
92 
o4 
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Valid characters are those having the character codes 32 through 94, 
except for 34 (quote) and 93 (right bracket), allowing 61 characters to be 
used. These include all alphabetic, numeric, punctuation, and mathe- 
matic symbols. A complete list of the valid characters is shown in Fig- 
ure 8.1. i 

Although the shifted and Commodore graphic characters can be used 
as input also, the character code held in ST is not usable. Trying to read 
either ST or CHR§$(ST) will cause 7ILLEGAL QUANTITY ERROR. 

The following program will give a demonstration of ON KEY using 
the two characters A and B. Use the programmed function key (f5) or 
AUTO 16,10 for automatic line numbering. If you’re not using this con- 
vention, enter the line numbers shown with the statement lines in the 
program below. 


Program Listing 


18 PRINT "PRESS KEY A OR B" 

28 ON KEY ''AB",:GOTO 48 

38 GOTO 20 

48 PRINT ST, CHRSC(ST) 

5@ IF CHRSC(ST)="A"' GOTO 78 

6@ PRINT "YOU PRESSED B'':GOTO 88 
76 PRINT "YOU PRESSED A" 

88 END 


This program uses the ON KEY command to scan for keyboard input 
of either of the two letters A or B. It then tests the value of CHR$(ST), 
which contains the character input from the keyboard, for a program 
branch. When run, the program will pause waiting for the character A 
or B to be pressed. 

RUN the program twice, testing A, then B, as the keyboard input. 
You may also want to test other characters to prove that they will not be 
accepted as input. 

The ASC code 65 is given for ST, and the value “A’’ for CHR$(ST) 
when the key A is entered. The ASC code 66 is given for ST, and the 
value ‘“‘B” for CHR$(ST) when the key B is entered. 


RESUME 


ON KEY has a companion statement—RESUME. This command 
causes a program to branch back to the last ON KEY command. 
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Statement format: 


RESUME 


To demonstrate this command, edit the program in memory as 
follows. 


ENTER: 68 PRINT ''YOU PRESSED B'': RESUME 
88 RESUME 
98 END 


After printing ST, CHR$(ST), and the message telling which key was 
pressed, the program will return to statement line 20 and halt until 
either key A or key B is pressed. 

RUN the program using both A and B as input at least once. Press the 
RUN/STOP key to end the program. 

Note: The user guide that is included with the Simons’ BASIC car- 
tridge specifies that you must use the DISABLE command to turn ON 
KEY off. I have found this command completely unnecessary, even 
when following an ON KEY routine with statements such as GET or 
INPUT. This does not generate the ‘“‘recursive jumps” promised in the 
user guide if the DISABLE command is not used. Since this command 
is “extra baggage,” it is not covered in this book. However, I do not 
have Simons’ BASIC on tape or disk, only on cartridge. It’s possible 
that the cartridge version was modified to avoid this problem without 
need for the DISABLE command. If those of you who have the tape or 
disk version have a problem with ON KEY recursive jumps, you should 
use the DISABLE command following your ON KEY routine. 


FETCH 


This input statement allows the programmer to limit the program 
user’s keyboard input by controlling the type of characters and number 
of characters input. FETCH can be used in place of an INPUT state- 
ment. Unlike INPUT, however, FETCH does not include an input mes- 
sage, nor does it provide an input prompt (?). The programmer must ’ 
provide the input message in a PRINT statement preceding FETCH. 


Statement format: 


FETCH “‘control character’ ,character limit,variable name 
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The three FETCH control characters are shown in Figure 8.2. The 
variable specified for the first two control characters—HOME and 
CURSOR RIGHT—must be a string variable. The variable specified for 
the control character CURSOR DOWN must be numeric. 


Control Character Control Character Key Valid Characters 


ris)" HOME Unshifted 
alphabetic 
characters only. 


% fl “| CURSOR RIGHT Shifted and 
unshifted 
alphabetic 
characters only. 


sie | ay CURSOR DOWN Numeric 
characters only. 


Figure 8.2 


If a numeric variable is specified in the FETCH statement when using 
either the HOME or CURSOR RIGHT control character, the message 
?REDO FROM START will be printed after characters are input. The 
only way to correct this error is to stop the program using the RUN/ 
STOP and RESTORE keys, and correct the FETCH statement. 

However, if a string variable is specified in FETCH when using the 
CURSOR DOWN control key, the statement will be performed. It will 
accept all non-alphabetic shifted and unshifted keys—including space— 
in addition to numeric keys, except the pound sign (£), exponential sign 
("), left and right brackets ([ ]), and comma. (A comma will be accepted 
but ignored, as will all characters following it, and generate the mes- 
sage EXTRA IGNORED.) Using this control key for entering a certain 
type of information, such as telephone numbers, social security num- 
bers, and so forth, can be very useful since the space character cannot 
be accepted by the other two control keys. 

The program shown below demonstrates all three standard uses of 
FETCH, plus the deliberate use of a character string for numeric input. 
The command illustrated is shown to the left of the program listing. To 
save keying in time, use automatic line numbering by entering AUTO 
10,10 or a programmed function key. If you use automatic line number- 
ing, be sure not to enter the line numbers yourself! 
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Command Illustrated Program Listing 


CENTRE 19 PRINT "CCLEAR]": PRINT: CENTRE 
"FETCH TEST'': PRINT:PRINT 

FETCH 28 PRINT "YOUR FIRST 
NAME?"': FETCH''CHOME)'',8,NS 

FETCH 368 PRINT "YOUR ZIP CODE?":FETCH 
"CCURSOR DOWN]",5,Z 

FETCH 49 PRINT "YOUR TELEPHONE 


NUMBER?"': FETCH ''CCURSOR 
DOWN]",8,T$ 

FETCH 59 PRINT "YOUR SYMBOL?"': FETCH 
"ECURSOR RIGHT]",4,S$ 
60 PRINT N$,,Z,T$,S$ 
78 END 


After each message prints, the cursor will remain on the screen wait- 
ing for your input. Type your input and press the RETURN key. The 
input will then be cleared from the screen and the next PRINT state- 
ment performed. After all FETCH input is entered, the FETCH variable 
values will be printed. 

The first input will be your first name. Two FETCH statements 
would be needed for first and last name, three for first, last, and middle 
name or initial because the space character will not be accepted by 
either control character used for alphabetic characters. The last input— 
YOUR SYMBOL—is to demonstrate the use of the graphic keys. Choose 
any four shifted or Commodore graphic keys for this entry. 

RUN the program, and attempt to enter the incorrect type of input— 
alphabetic in numeric or numeric in alphabetic—before entering the 
correct data. 

To keep the FETCH input from being erased from the screen when the 
next statement is displayed, add a PRINT statement following each 
FETCH statement. To do this, either edit statement lines 20, 30, 40, and 
50, or 


ENTER: 25 PRINT 
35 PRINT 
45 PRINT 
55 PRINT 


RUN the program. 
The following menu-driven summary program will demonstrate each 
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of the three commands covered in this chapter. This type of program is 
an excellent place to make use of INKEY, although a menu-driven pro- 
gram would usually have more program options. ON KEY is used in a 
subroutine to test whether the user wishes to continue or end the pro- 
gram. The FETCH statement is used throughout the program, in place 
of the INPUT statement. Each Simons’ BASIC command illustrated is 
shown to the left of the program listing. 
You may use AUTO 10,10 to enter the following program. 


Command 


Illustrated Program Listing 


CENTRE 


INKEY 
CENTRE 


FETCH 


FETCH 


FETCH 


FETCH 


18 PRINT "'CCLEARI]'"'sPRINT:CENTRE ''TRIVIA BY 
TOPIC': PRINT: PRINT 

20 PRINT:PRINT ''PRESS THE FUNCTION KEY 
SHOWN'': PRINT ''TO CHOOSE YOUR TOPIC." 

38 PRINT:PRINT "F1=U.S. SPACE FLIGHT'': PRINT 
"F2=SPORTS" 

49 ON INKEY GOTO 58,248:GOTO 48 

5@ PRINT "CCLEARI]'"':PRINT: CENTRE "U.S. SPACE 
FLIGHT TRIVIA'': PRINT 

68 PRINT:PRINT "LAST NAME OF THE FIRST 
AMERICAN IN SPACE?'': FETCH "'CHOME)'',7,S$:PRINT 
7@ IF S$=""SHEPARD' THEN PRINT "'RIGHT!'': 
GOTO 98 

88 PRINT ''WRONG. THE ANSWER IS: SHEPARD." 
98 PRINT:PRINT ''LAST NAME OF THE FIRST 
AMERICAN TO ORBIT THE EARTH?" 

196 FETCH ''THOME]"',5,E$:PRINT 

119 IF ES=""GLENN'' THEN PRINT "'RIGHT!"': 

GOTO 138 

12@ PRINT "WRONG. THE ANSWER IS: GLENN." 
138 PRINT:PRINT ''LAST NAME OF THE FIRST 
AMERICAN TO WALK IN SPACE?" 

140 FETCH ''CHOME]'"',5,WS:PRINT 

15@ IF WS=""WHITE' THEN PRINT "'RIGHT!"': 

GOTO 178 

168 PRINT "WRONG. THE ANSWER IS: WHITE." 
17@ PRINT:PRINT ''LAST NAME OF THE FIRST MAN 
TO WALK ON THE MOON?" 

186 FETCH ''THOME]",9,M$:PRINT 
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CENTRE 


CENTRE 


FETCH 


FETCH 


FETCH 


FETCH 


CENTRE 


ON KEY 


198 IF M$="'ARMSTRONG" THEN PRINT 
"RIGHT!'':GOTO 218 

208 PRINT "WRONG. THE ANSWER IS: ARMSTRONG." 
218 PRINT:PRINT:CENTRE "END OF SCIENCE 
TRIVIA': PRINT 

226 GOSUB 468 

238 PRINT "[CLEAR]'':GOTO 28 

248 PRINT '"[CLEAR]'':PRINT: CENTRE ''SPORTS 
TRIVIA'': PRINT 

259 PRINT:PRINT "HOW MANY LAPS USUALLY MAKE 
UP THE':PRINT "INDY 586?"' 

268 FETCH ''CCURSOR DOWNI]'"',3,L:PRINT 

278 IF L=26@ THEN PRINT "'RIGHT!"':GOTO 298 
286 PRINT "WRONG. THE ANSWER IS: 208." 

298 PRINT:PRINT "IN BASKETBALL, HOW MANY FEET 
IS THE NET ABOVE THE COURT?" 

36@ FETCH "CCURSOR DOWN]'',2,N:PRINT 

318 IF N=19 THEN PRINT "'RIGHT!'"':GOTO 338 
328 PRINT "WRONG. THE ANSWER IS: 19." 

33 PRINT:PRINT '"'HOW MANY PLAYERS ARE ON AN 
OUTDOOR POLO TEAM?!' 

348 FETCH "'[CURSOR DOWN]'',1,P:PRINT 

350 IF P=4 THEN PRINT "'RIGHT!"':GOTO 3798 

36@ PRINT "WRONG. THE ANSWER IS: 4." 

378 PRINT:PRINT "HOW MANY INCHES ACROSS DOES 
AN'! 

388 PRINT "ICE HOCKEY PUCK MEASURE?" 

396 FETCH "[CURSOR DOWN]'',1,H:PRINT 

496 IF H=3 THEN PRINT "RIGHT!"':GOTO 428 

418 PRINT "WRONG. THE ANSWER IS: 3." 

426 PRINT:PRINT:CENTRE "END OF SPORTS 
TRIVIA': PRINT 

438 GOSUB 468 

446 PRINT ''[CLEAR]'':GOTO 28 

458 END 

468 PRINT:PRINT ''PRESS C TO CHOOSE ANOTHER 
TOPIC OR E TO END THE PROGRAM." 

478 ON KEY "'CE",:GOTO 498 

488 GOTO 476 

496 IF CHRS(ST)="E"' GOTO 458 

586 RETURN 
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RUN the program. 

Now you can easily write your own menu-driven programs, and cre- 
ate more sophisticated programs with the help of these new input 
statements. 


Output Options 


This chapter reviews three formatting commands—PRINT AT, USE, 
and MOVE—for screen output, a new listing command—OPTION, and 
a command for hard copy printer output—HRDCPY. These commands 
are useful in all types of programming; for business, education, and 
entertainment. Again, this chapter will use a demonstration program 
that will be added to as each of these commands is reviewed. If you do 
not complete this chapter at one time, SAVE the program before you 
stop. Then LOAD the program before you continue in the chapter. 


AT 


This PRINT function positions text at a user-specified screen loca- 
tion. Since it uses column and row coordinates, it is a great deal more 
powerful that either TAB or SPC. 


Function format: 
AT(column,row)‘‘character string” 


or 
AT(column,row)string variable name 


The number of AT functions specified in a PRINT command is only 
limited by the length of a PRINT line—two screen lines. AT may use 
either a character string or string variable. There may be no space 
between AT and the left parenthesis of the column and row coordinate 
parameter. A space will cause a 7BAD SUBSCRIPT ERROR. 

The following program will demonstrate this function and review 
several of the commands from previous chapters. The command illus- 
trated is shown to the left of the statement line in which it appears. To 
use automatic line numbering for the program, use AUTO 16,10. Or, 
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use a programmed function key—f5 if you still haven’t turned off your 
Commodore since Chapter 5 or you saved and reloaded the function 
key assignments! If this is the case, your dedication to Simons’ BASIC 
is admirable! Those of you who are not convinced to change your old 
habits and save a little keyboarding time will enter the statement line 
numbers shown. 


NORTHWEST INTERNISTS, P.C. 
JAMES S. BOND, M.D. 
KEITH E. POUND, M.D. 

71? NORTH BROAD STREET 

NEW YORK, NEW YORK 18821 


INTERNAL MEDICINE MU-8-84288 
PAY- 
DATE CODE CHARGES MENTS BALANCE 
READY. 
D 


Figure 9.1: Northwest Internists Billing Form. 


Command 
Illustrated Program Listing 


18 PRINT’ CCLEARI": PRINT 


CENTRE 28 CENTRE ''NORTHWEST INTERNISTS, P.C."' 
:PRINT 

CENTRE 30 CENTRE "JAMES S. BOND, M.D.'': PRINT 

CENTRE 40 CENTRE ''KEITH E. POUND, M.D.'': PRINT 

CENTRE 5®@ CENTRE ''717 NORTH BROAD STREET'': PRINT 

CENTRE 6@ CENTRE "NEW YORK, NEW YORK 18821" 


:PRINT 
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AT 76 IS=""INTERNAL MEDICINE'': PRINT AT(6,8) 
I$ AT(38,8)''MU-8-6406"' 

DUP 88 PRINT:PRINT DUP(''--"', 48) :PRINT:PRINT 

AT 98 PRINT AT(25,11)'"'PAY-"' 

AT 198 PRINT AT(®,12)"'DATE" AT(18,12)''CODE" 
AT(16,12)"CHARGES" AT(25,12)''MENTS''; 

AT 118 PRINT AT(32,12)''BALANCE" 

DUP 128 PRINT:PRINT DUP(''--'', 49) :PRINT: PRINT 
13@ END 


The screen output will be a billing form used by a medical practice 
partnership. 

RUN the program. Note the ease of formatting this bill, and the handy 
use of DUP for drawing lines. The screen output is shown in Figure 9.1. 


USE 


As mentioned in Chapter 1, this is the Simons’ BASIC command used 
to format lists of numbers—align the decimal points. Because the deci- 
mal point symbol is a character, numbers formatted with USE are char- 
acters, either part of a character string or a string variable. 


Command format: 
USE “#.#’,‘‘character string” or string variable name 


or 
USE “‘text#.#text’’, ‘character string” or string variable name 


Hash marks are used to show the format image to be used by the 
character string or string variable. The decimal must be displayed in 
the character string. Only one string or string variable may be specified 
in a USE command. If more than one is specified it will cause ?SYN- 
TAX ERROR. Only one decimal may be used in the format image for 
the USE statement to execute correctly. 

Text may also be a part of the format image, i.e., ‘“$###,44#.4#”. To 
illustrate this example, 


ENTER: AS=""44444 .44":3USE "S##HH, HHH. HH, AS 


Your output is: $ 44,444.44. In the immediate mode, the character 
string for USE must be given before the USE command is entered. This 
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is not necessary when USE is a program statement. In the above exam- 
ple, the dollar sign and the comma are text and are displayed by the for- 
mat image when the character string is printed. 

The following statement lines will add billing data to the program in 
memory, demonstrating the benefits of USE. LIST the program, and if 
you wish to use automatic line numbering enter AUTO 130,10. Then 
enter the following program lines. The command illustrated is shown 
to the left of the program statement. 


Command 
Illustrated Statements to be added: 


138 READ D$,CO$,CH$,P$,B$:1F D$="'-99" 


GOTO 196 
148 PRINT DS TAB(19) COS; 
USE 158 PRINT TAB(16):USE "'S###'', CHS 
USE 168 PRINT TAB(25):USE '"S###"', PS 
USE 178 PRINT TAB(32):USE '"S###'', BS: PRINT 


188 GOTO 138 

198 PRINT:PRINT:PRINT "PLEASE PAY LAST 
AMOUNT IN BALANCE COLUMN'' 

208 DATA 1/12/85,EKG,130,60,70, 2/81/85, 
OV,25,25,78,3/12/85, LAB, 69,69, 78 

218 DATA 3/12/85,0V,25,56,45 

2268 DATA -99,-99,-99,-99,-99 

238 END 


The TAB function is used to align the formatted character strings 
(USE) with the column headings, using the column parameter of each 
AT function (statement line 100). 

RUN the program. 


MOVE 


This command is used to duplicate a specified portion of the screen 
and display the duplicate at a given screen location. The exact location 
of the portion of the screen to be copied and the location that the dupli- 
cate is to occupy must be specified in the MOVE command. 

This command requires six parameters; the first four specify the por- 
tion of the screen to be copied, and the last two give the location of the 
duplicate. The first two parameters specify the row and column where 
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the information to be duplicated begins. The third parameter gives the 
width (screen length occupied) of the information to be copied, and the 
fourth parameter tells the number of lines it occupies. The fifth parame- 
ter specifies the receiving row of the duplicate; and the sixth parameter 
gives the column in which the duplicate will begin. All six parameters 
must be used. In setting these parameters, remember that this screen 
type—the low-resolution, normal screen—is configured 25 rows, num- 
bered 0 through 24, by 40 columns, numbered 0 through 39. 


Command format: 


MOVE row,column,width,lines,receiving row,receiving 
column 


The width of the area to be duplicated plus the receiving column can- 
not exceed 40, the screen width. Likewise, the number of lines (depth) 
of the area to be duplicated plus the receiving row cannot exceed 25, 
the screen height. If either of these conditions occur, it will cause the 
error condition 7BAD MODE. 

In order to use MOVE in the immediate mode, the characters to be 
copied must reside in memory before MOVE is entered. This can be 
accomplished by storing the data of the area to be duplicated in a vari- 
able before entering the MOVE command, as shown in the examples 
below. Because the screen is cleared first, the data will be printed on 
row 0, beginning in column 0. 


ENTER: A=1234:PRINT "CCLEAR]";A:MOVE 0,9,5,1, 
24,35:PAUSE 18 


In this example, the numbers 1234 will first be printed in the upper 
lefthand corner of your screen, on row @—the first screen row—begin- 
ning in column 6, covering 5 print positions on 1 line. MOVE will 
duplicate this value in the lower righthand corner of your screen, on row 
24—the last screen row—beginning in column 35. This will cause the 
last digit of the data to be printed in column 39—the last print position 
on a row. Note that the leading blank must be included in the width for 
the entire number to print. Using 4 for the width parameter of MOVE 
would only print the first three digits—123. The ten second PAUSE 
allows you to review the screen. Note: READY always prints on the 
screen line following the normal screen output, ignoring the MOVE 
display. 
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ENTER: A$S=""THE MICRO FACTORY" :PRINT "'TCLEAR]"'; 
AS:MOVE 0,8,17,1,12,12:PAUSE 19 


This example causes a character string printed at the first screen 
location (0,0) to be duplicated at a new screen location. That location is 
on row 12, beginning at column 12, and residing in 17 print positions. 

To demonstrate MOVE in program mode, add the following state- 
ment lines to the program in memory. 


238 MOVE 2,109,28,1,24,28 
248 GOTO 249 


LIST the program. MOVE will duplicate the 20 characters ‘KEITH E. 
POUND, M.D.” located on row 2 beginning at column 10 at columns 20 
through 39 on row 24. Line 240 will keep the screen from scrolling, so 
that the entire bill will stay on the screen for your review. 

RUN the program, then end it by pressing the RUN/STOP key. 
MOVE duplicated the name of the sending doctor at the bottom, right- 
hand corner of the screen, copied from the heading. 

If you have a letterhead or newsletter header containing a graphic, 
you can “move” it to another part of the page, as shown in the short 
program below. This program will be added to the front of the program 
in memory and end with a GOTO loop. 

Use automatic line numbering by entering AUTO 1,1 or key in the 
line numbers shown in the program listing. (Note: In lines 2 and 3, 
SHIFT+106 means to hold down the SHIFT key and press the + key ten 
times.) 


Program Listing 


1 PRINT "CCLEARI]":PRINT 

2 PRINT "CSPACE2, SHIFT +18]" 

3 PRINT "CSPACE2, SHIFT +18] RIDING THE RAILS!" 
4 PRINT:PRINT:CENTRE "NEWSLETTER": PRINT 

5 PRINT:PRINT "THIS MONTH'S RAILROAD NEWS INCLUDES 
MANY PRICE-BREAKING FARES." 

6 PRINT:PRINT TAB(5) "NEW YORK TO L.A. ONLY", 
"SXXX XX" 

7 MOVE 2,3,19,2,23,39 

8 PRINT AT(@,24) "SEE YOU ON THE TRACKS!"' 

9 GOTO 9 


RUN the program. The screen output is shown in Figure 9.2. 
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ToT RIDING THE RAILS! 


NEWSLETTER 


THIS MONTH'S RAILROAD NEWS INCLUDES MANY 
PRICE-BREAKING FARES. 


NEW YORK TO L.A. ONLY $XXX XX 


SEE YOU ON THE TRACKS! 


Figure 9.2: Railroaders’ Newsletter 


This shell newsletter may give you some ideas for your own writing 
projects! 

Before going on to the next command, remove this Railroaders’ 
Newsletter program—statement lines 1 through 9—leaving the Doctor 
bill program in memory. 


OPTION 


This command is used to highlight all Simons’ BASIC commands 
when a program is listed on the screen or by the printer. This is accom- 
plished by printing the Simons’ BASIC commands in reverse-field, as 
though you had used reverse on. Of course, printer listings using 
OPTION will wear out your printer ribbon quite quickly. 
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Command format: 


OPTION 10 


To demonstrate the highlighted listing using the Doctor bill program 
in memory: 


ENTER: OPTION 18 
LIST 


and use the SHIFT key to slow listing speed. 

Each Simons’ BASIC command, in the Doctor bill program, is 
printed in reverse field. CENTRE is highlighted on lines 20 through 60, 
AT on lines 70 and 90 through 110, DUP on lines 8@ and 120, USE on 
lines 150 through 170, and MOVE on line 230. 

Any number between @ and 255, except 10, can be used as. the 
OPTION parameter to turn off highlighting. 


ENTER: OPTION @ 
LIST 


Now highlighting is turned off, and the program listed in the normal 
manner. 


HRDCPY 


This is the statement used to print hard copy of a low-resolution 
screen (the normal screen-type, being used now) on a serial printer. 


Statement format: 


HRDCPY 


If you have a serial printer, edit the following statement line of the 
billing program in memory for a demonstration of this command. 


249 HRDCPY:END 


The program output will first be displayed on the screen, and then 
printed on the serial printer. 
These are all of the Simons’ BASIC output options usable on a low- 


76 » II Added Input and Output Options 


resolution screen. High-resolution graphics output is covered in Chap- 
ter 17. 

The output options covered in this chapter will make your programs 
more visually interesting. And, of course, this makes programming 
more rewarding for you. 


More 
Programming 
Power 


Introduction 


Following is a brief overview, by chapter, of the twelve Simons’ 
BASIC commands that increase programming efficiency, and provide 
alternative methods of handling programming problems. All of these 
command words are reserved words, and cannot be used in variable 
names. 


Chapter 10 


The IF THEN ELSE statement tests both consequences of the IF con- 
dition, true and false, and addresses both on the same statement line. 
This eliminates the need for a second IF THEN statement. 

The RCOMP ELSE statement is used to re-execute the last IF condi- 
tion test, using different THEN and ELSE statements. 

The REPEAT and UNTIL statements perform a program loop much 
the same as the BASIC FOR NEXT loop. However, the UNTIL state- 
ment provides a user-specified condition test at the end of the loop, 
making the REPEAT UNTIL loop a FOR NEXT loop with a variable 
ending. 

Another looping option is provided by the set of statements LOOP, 
EXIT IF, and END LOOP. Any number of EXIT IF statements, each 
specifiying a condition for exiting the loop, may be used. This provides 
multiple condition-testing within the loop. 

CGOTO is a computed GOTO statement, using the result of the com- 
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mand’s mathematical expression for branching to a variable line 
number. 


Chapter 11 


The RESET statement gives the programmer the ability to READ a 
specific portion of data by branching directly to a specific DATA state- 
ment line. 

The LOCAL and GLOBAL statements provide a way of reusing the 
same variable names within a program. When variables are reused, 
their values are copied and stored and, when needed, can be reset. 


Chapter 12 


The following four procedure statements help to change Commodore 
BASIC into a structured programming language. 

PROC is the statement used to name a subroutine or portion of a pro- 
gram, making it a procedure. 

END PROC is the end statement for a closed procedure, functioning 
the same as the RETURN statement used with GOSUB in BASIC. 

CALL is the procedure version of the BASIC GOTO statement. It is 
used for branching—by procedure name—to an open-ended procedure. 

EXEC is the procedure version of the BASIC GOSUB statement used 
for branching—by procedure name—to a closed procedure. 

The MERGE command is used to save programming time by adding 
a program from a storage device to the end of the program currently in 
memory. 


Key to Entering Program Listings 


No additional key conventions are used in this section. 


Condition 
Testing and 
Controlling 
Loops 


Of the five Simons’ BASIC statements covered in this chapter, the IF 
THEN ELSE statement is the one you will use most frequently. Those 
of you who have worked with other versions of BASIC have probably 
encountered the IF THEN ELSE statement and regretted not having 
this ability on the Commodore 64. With ELSE added to the IF THEN 
statement, both consequences of the IF condition can be addressed on 
the same statement line. Because of the two-line limitation of a Commo- 
dore BASIC statement, the creative programmer will welcome the 
RCOMP ELSE statement. This statement is used to re-execute the con- 
ditional test of the last IF THEN ELSE using new THEN and ELSE 
statements. 

The FOR NEXT loop gets a big brother called REPEAT UNTIL. This 
pair of statements perform a program loop until a user-specified condi- 
tion is met at the end of the loop—a FOR NEXT loop with a variable 
ending. If a condition test at the end of the loop isn’t sufficient, you can 
use the set of statements LOOP, EXIT IF, and END LOOP. EXIT IF can 
be used any number of times for condition testing for exiting the loop 
from anywhere within the loop. 

The last statement covered is the computed GOTO—CGOTO—that 
causes a branch to a variable line number. The line number branched to 
is determined by the result of the CGOTO computation. 

Although you will be using some of these statements infrequently, 
each statement will be very useful on some occasions. 
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IF THEN ELSE 


The IF THEN portion of this statement remains the same as in Com- 
modore BASIC, testing the IF condition and performing the THEN 
statements if the condition is true. ELSE specifies—on the same state- 
ment line—the statements to be executed if the condition is false, elimi- 
nating the need for another IF THEN statement. 


Statement format: 


IF condition THEN statement(s):ELSE:statement(s) 


GOTO can be used with or in place of THEN in this statement, the 
same as with IF THEN in Commodore BASIC. Note that there must be 
a colon both before and after the ELSE command. If either colon is omit- 
ted, it will cause 7?SYNTAX ERROR. The colon following the ELSE 
command must immediately follow it; there can be no intervening 
spaces! The colon preceding the ELSE command may have intervening 
spaces. 

The following program demonstrates this statement. Use AUTO) 
10,10, either by entering it directly or by using a programmed function 
key, or enter the line numbers as shown. 


18 INPUT A 

20 IF A=1 THEN B=1:ELSE:B=5 
38 PRINT A,B 

48 GOTO 18 


The IF THEN ELSE statement will execute as follows. If 1 is the 
value input for A, both A and B will be set to the value of 1. If any num- 
ber other than 1 is input as the value of A, A will have the value input 
and B will be set equal to 5. RUN the program, entering first 1, then any 
number but 1, and press the RUN/STOP and RESTORE keys to end the 
program. 

Of course, the IF condition may use more than one condition, using a 
logical operator (AND, OR, NOT), and multiple THEN and ELSE state- 
ments. As always, the statement must not exceed two print lines. 

Clear computer memory, enter AUTO 10,10 directly or with a func- 
tion key, and the following program. The Simons’ BASIC commands 
illustrated are shown to the left of the program listing. 
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Command Illustrated Program Listing 


CENTRE 18 PRINT:CENTRE "SOLVE THE 
PROBLEM':PRINT "'CDOWN2]" 
28 A=360-68 
38 INPUT "ANSWER TO 368- 
68''; ANS 

IF THEN ELSE 49 IF A=ANS THEN PRINT 


"CORRECT": ELSE:PRINT 

"INCORRECT. TRY AGAIN!"': PRINT 
IF GOTO ELSE GOTO 5@ IF A=ANS GOTO 69:ELSE:GOTO 

38 

68 END 


Note that FETCH cannot be used in place of INPUT in this program 
because numeric input from FETCH cannot be used for performing 
mathematics. 

RUN the program, first using an incorrect answer then the correct 
answer. Do not clear computer memory. This program will be edited to 
use RCOMP ELSE. 


RCOMP ELSE 


RCOMP ELSE reuses only the IF condition test of the most recently 
executed IF THEN ELSE statement. RCOMP ELSE specifies both the 
THEN and ELSE statement(s) to be used with the previous IF condition 
test. 


Statement format 


RCOMP:statement(s): ELSE:statement(s) 


RCOMP, which replaces BASIC’s THEN, must be followed by a 
colon, and ELSE must be preceded by and immediately followed by a 
colon. If any of the three colons are omitted or there is an intervening 
space between ELSE and the colon a SYNTAX ERROR will be given. 

Make the following change to the program in memory to demonstrate 
RCOMP ELSE. 


ENTER: 5@ RCOMP:GOTO 6@:ELSE:GOTO 38 
RUN the program. The program output is the same with RCOMP 
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ELSE as it was with the second IF THEN ELSE statement. RCOMP is 
used in place of IF A=ANS. In this instance, not much keyboarding 
time was saved. When the IF condition test is more complex, RCOMP 
will save more keyboarding time. RCOMP ELSE is very useful in add- 
ing statements to the previous IF THEN ELSE statement line, as shown 
in the example in your Simons’ BASIC User Guide. It is also useful in 
programs with complex condition testing with many resulting branches 
from each set of conditions. 


REPEAT UNTIL 


The REPEAT and UNTIL commands perform a function similar to 
the FOR and NEXT commands. However, REPEAT UNTIL has the 
additional power of controlling the loop by a condition test specified at 
the end of the loop. Unlike the FOR NEXT loop, the number of times a 
loop is executed is not specified at the beginning of the loop, nor is the 
lower limit or increment. Both the lower limit and increment are speci- 
fied within the loop itself. When the condition test for ending the loop 
is met, the program proceeds to the statement following UNTIL. 


Command format: 


REPEAT:loop statement(s): UNTIL condition 


To demonstrate this command: 
ENTER: REPEAT:A=A+1:PRINT A:UNTIL A=19 


The comparable FOR NEXT statements for the above statement 
would be: FOR A=1 TO 10:PRINT A:NEXT A. REPEAT replaces FOR, 
A=A+1 specifies the lower limit and increment, replacing A=1 in the 
FOR statement and the default step of 1, and UNTIL A=10 specifies 
the upper limit, replacing TO 10 in the FOR statement. 

Like the FOR NEXT loop, REPEAT UNTIL loops may be nested. 
Nine nested REPEAT UNTIL loops is the limit. If this limit is exceeded, 
it will cause the error STACK TOO LARGE. When nesting REPEAT 
UNTIL loops, each UNTIL statement must have a matching REPEAT 
statement. Omitting the REPEAT statement will cause an UNTIL 
WITHOUT REPEAT error specifying the line number in which it oc- 
curred. 
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For a demonstration of nested REPEAT UNTIL loops, 


ENTER: REPEAT: K=K+1:REPEAT:L=L+1:PRINT K,L:UNTIL 
L=3: L=@:UNTIL K=5 


As you know, in a FOR NEXT loop the lower limit is reset each time 
the FOR statement is executed. In REPEAT UNTIL nested loops, the 
lower limit of the inside loop (L in the above example) must be reset 
after the loop is completed (L=@, above), and before the loop is per- 
formed again. 

An important use for REPEAT and UNTIL is for READing DATA. 
REPEAT UNTIL does not have the controlled upper limit of the FOR 
NEXT loop, and avoids the use of a DATA statement ‘‘flag value” and 
an IF condition test. The UNTIL condition test is the “flag value.” 

Clear computer memory, and enter the following program for a dem- 
onstration of REPEAT UNTIL used for reading data. 


ENTER: 1@ REPEAT:READ A,B:PRINT A,B:UNTIL B=12 
28 DATA 1,2,3,4,5,6,7,8,9,19,11,12 
38 END 


RUN the program. The UNTIL condition must specify only the last 
value in the READ statement list. Otherwise, the final READ will be 
incomplete, causing an OUT OF DATA ERROR. If the data contained 
duplicates of the end value, a DATA statement “flag value”, such as 
-99, would be needed as the value of the UNTIL condition. 

An additional application to keep in mind for REPEAT UNTIL is the 
“delay until key is pressed procedure,” as in: REPEAT:GET K$: 
UNTIL K$ < > ‘*”’, 


LOOP, EXIT IF, and END LOOP 


LOOP and END LOOP specify the beginning and end of the loop 
respectively. EXIT IF specifies the condition for exiting the loop, and 
may be used any number of times with the loop. When any EXIT IF 
condition is met, the program branches to the statement following END 
LOOP. 


Loop format: 


LOOP:loop statement(s):EXIT IF condition:END LOOP 


This loop performs the same as the REPEAT UNTIL loop, except that 
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condition testing for exiting the loop can be performed at any points 
within the loop, rather than only at the end of the loop. As with the 
REPEAT UNTIL loop, the lower limit and increment are specified 
within the loop. 

The following program demonstrates this loop using two EXIT IF 
statements within the loop. The first EXIT IF statement tests the value 
of the INPUT variable, I, and is executed if the value is 3; that is, the 
loop is then exited. The second EXIT IF statement is executed if the 
value of I is greater than 99. Clear computer memory, and enter the 
program using AUTO 10,10 or the line numbers shown. 


Program Listing 


18 J=7 

26 INPUT I 

36 LOOP:EXIT IF I=3:PRINT I:I=I+J:EXIT IF I>99: 
END LOOP 

49 PRINT:PRINT "OUT OF LOOP, I="';I 

5@ END 


RUN the program at least three times using as input the number 3, a 
number less than 99, and a number greater than 99. The program out- 
put, using input values of 3, 84, and122, is shown in Figure 10.1. 


Program Output 
‘Ag ? 84 ? 122 
84 Tee 
OUT OF LOOP, I= 3 91 
98 OUT OF LOOP, I= 129 


OUT OF LOOP, I= 185 
Figure 10.1 


As the Figure 10.1 output shows, the loop was exited at the first EXIT 
IF statement when the value of 3 was used as input. Using 84 as the 
input value the loop was exited when the value of I reached a value 
greater than 99. When a value greater than 99 was used as input the 
loop was exited immediately. 

it Following is a demonstration program for nested loops using LOOP, 
EXIT IF, and END LOOP. Each loop contains one EXIT IF statement. 
Clear computer memory, and enter the program using AUTO 10,10 or 
. the line numbers shown. 


Es 
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Program Listing 


18 PRINT "OUTSIDE LOOP"," INSIDE LOOP" 
2@ LOOP 

3@ I=I+1:PRINT I; :J=8 

46 LOOP 

5@ J=J+1:PRINT ,,J 

68 EXIT IF J=3 

76 END LOOP 

86 EXIT IF I=4 

98 END LOOP 


The inside loop is performed in statement lines 40 through 70. The 
outside loop begins on line 20 and ends on line 90. As with the 
REPEAT UNTIL loop, the inside loop variable must be reset (line 30, 
J=0) before re-executing the inside loop. 

RUN the program. The output will show the performance of both 
loops. 


CGOTO 


This statement is used to branch to the line number obtained as a 
result of the calculation performed in the CGOTO parameter, numeric 
expression. 


Statement format: 


CGOTO numeric expression 


The mathematical expression can be a number (constant), or a 
numeric variable, or a combination of constants, variables, and oper- 
ands. For example: N*X is a numeric expression consisting of a 
numeric variable, an operand, and a second numeric variable. If the 
value of N is 20 and the value of X is 5, CGOTO will branch to line 100, 
N«X. In the numeric expression I*10, consisting of a numeric variable, 
an operand, and a constant, if the value of I is 8, CGOTO will branch to 
line 80, I*10. 

Note: This is important for Commodore users who normally use the 
short hand version for entering BASIC. You cannot use the abbrevia- 
tion of the BASIC keyword GOTO—G[SHIFT]O—when entering the 


86 » III More Programming Power 


keyword CGOTO. It will cause a SYNTAX ERROR. You can use all of 
the abbreviations of BASIC keywords if they stand alone, but you can- 
not use them as part of a new Simons’ BASIC keyword. 

The following demonstration program is an example of CGOTO 
branching. All Simons’ BASIC commands illustrated in this program 
are shown to the left of the program listing. Clear computer memory, 
use AUTO10,10 if you wish automatic line numbering, and enter the 
following program. 


Command 
Illustrated § Program Listing 


19 PRINT:PRINT "ENTER 4, 5, OR 6. THE 
NUMBER 6 WILL END THE PROGRAM." 

FETCH 26 FETCH ''CDOWN]",1,N:PRINT 

CGOTO 38 CGOTO Nx18 
40 PRINT "NUMBER 4 CAUSES A BRANCH TO 
LINE NUMBER 48.'':GOTO 18 
5@ PRINT ''NUMBER 5 CAUSES A BRANCH TO 
LINE NUMBER 58.'':GOTO 18 
6@ PRINT "NUMBER 6 CAUSES A BRANCH TO 
LINE NUMBER 68@.'': END 


RUN the program using each of the three numbers 4, 5, and 6 as 
input. 

The next program demonstrates the usefulness of both CGOTO and 
IF THEN ELSE. It would be a useful program for traffic police. The 
speed limit and timed speed are entered and out comes the speeders net 
loss, both in dollars and points. Think of how they could speed-up pro- 
cessing speeders at a speed trap! 

Clear computer memory, enter AUTO 5,5 for automatic line num- 
bers, and enter the following program. 


Command 
Illustrated § Program Listing 
CENTRE 5. PRINT "CCLEAR DOWN]'':CENTRE ''THE 


SPEEDER'S LOSSES":PRINT ''CDOWN2]" 
18 INPUT ''TIMED SPEED,POSTED 
SPEED"; TS,PS:0S=TS-PS 
IF THEN ELSE 15 IF O0S>15 THEN G=6:ELSE:G=5 
CGOTO 28 CGOTO G5 
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IF THEN ELSE 25 IF 0S>1® THEN F=7x%(0S-10)+48: 
GOTO 35:ELSE: F=4%0S:GOTO 35 
30 F=(0S-15) *19+75 
35 PRINT:PRINT "TIMED", "POSTED": PRINT 
"SPEED", "SPEED", "FINE", "COST" 
4@ C=15:PRINT TS,PS,F,C 
45 PRINT:PRINT "TOTAL DUE $'';F+C 
50 IF 0S>=20 THEN P=4:ELSE:P=3 
55 PRINT "CDOWNJPOINTS =''sP 
69 END 


In this program speeders are fined at the rate of $4.00 per mile for up 
to ten miles over the speed limit, $7.00 per mile for every mile thereaf- 
ter up to 15 miles over the speed limit, and $10.00 per mile for every 
mile more than 15 mph over the speed limit. Three points are assigned 
for less than 20 mph over the limit, and four points for higher speeds. 
The variables used in the program are: 

TS = timed speed 

PS = posted speed 

OS = speed over the limit 

G = grade of speeder (less than or greater than 15 

MPH over the limit) 

F = fine for speeding 

C = ost of processing ticket 

P = points assigned 

RUN the program, using your own input for timed speed and posted 
speed. If you were to use 36,25 as input, your screen would look like 
Figure 10.2 below. If you were to use 85,55 as input, your screen would 
look like Figure 10.3 below. 

This ends our work with Simon’s BASIC condition testing and 
branching statements. Though you will not find a use for all of them in 
each of your programs, you will use all of them occasionally and some 
frequently. 
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THE SPEEDER’S LOSSES 


TIMED SPEED,POSTED SPEED? 36,25 


TIMED POSTED 
SPEED SPEED FINE COST 
36 20 47 15 


TOTAL DUE $ 62 
POINTS = 3 


READY. 
0 
Figure 10.2: ‘‘The Speeder’s Losses’’, using 36,25. 


THE SPEEDER’S LOSSES 


TIMED SPEED,POSTED SPEED? 85,55 


TIMED POSTED 
SPEED SPEED FINE COST 
65 55 220 15 


TOTAL DUE $ 248 
POINTS = 4 


READY. 
0 


Figure 10.3: ‘‘The Speeder’s Losses’’, using 85,55. 


Data Handling 


This chapter reviews two methods of handling data within a pro- 
gram: (1) resetting data pointers for use by the READ statement, and (2) 
clearing, reusing, and restoring variable values within a program. 
RESET specifies the starting DATA statement line to be read, thus 
eliminating the need to read data items sequentially beginning with the 
first DATA statement. By using LOCAL and GLOBAL, variable names 
may be reused within a program. The value of each of the variables 
specified is cleared and stored, allowing reuse of the variable names. 
When needed, the previous value can be restored. LOCAL and 
GLOBAL are useful for reducing the number of variable names used 
within a program when a program contains a large number of var- 
iables. 


RESET 


As you know, in Commodore BASIC the READ statement obtains 
data values sequentially, beginning with the first value in the lowest 
numbered DATA statement. RESET gives the programmer the ability 
to READ any specific portion of data by branching directly to a speci- 
fied DATA statement line. The last item read is controlled in the same 
way whether RESET is used or not, that is the upper limit of a FOR 
NEXT loop, a flag value, an UNTIL condition or an EXIT IF condition 
is met, or end of data. 


Statement format: 


RESET data statement line number 


Only one statement line may be specified in the RESET statement. 
The number of data values read is controlled by other programming 
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statements, as noted previously. The RESET statement only specifies 
the line number from which the first data value will be read. 

Following are two demonstration programs using this command. The 
first program uses an IF THEN statement with a flag value ending each 
DATA statement. The second program, an edited version of the first 
program, uses a FOR NEXT loop to control the number of data items 
read. Both programs use the Commodore BASIC RESTORE statement 
to reset the data pointer to the first data item. To enter the programs 
use AUTO 10,10, or enter the line numbers as shown below in the pro- 
gram listing. Each command illustrated is shown to the left of the state- 
ment in which it occurs. 


Command Illustrated Program Listing 


18 INPUT '1, 2, OR 3'';A 
RESET 20 IF A=2 THEN RESET 98 
RESET 38 IF A=3 THEN RESET 188 

46 IF A<1 OR A>3 GOTO 1198 

5@ READ B:IF B=-99 GOTO 118 

68 PRINT B 

78 GOTO 58 

8H DATA 1,2,3,-99 

98 DATA 4,5,6,-99 

18 DATA 7,8,9,-99 

11@ RESTORE:GOTO 19 


This program does not need to check for an input value of 1, since the 
READ statement will automatically read the first three data items (line 
80). Without a RESET statement for the value of 1, however, the 
RESTORE statement (line 110) is necessary. Without either a RESET or 
RESTORE statement, the data in line 8@ cannot be read more than 
once. If an input value less than 1 or greater than 3 is entered, the data 
pointer is restored to the first data item and input is again requested 
(line 40). 

RUN the program at least five times, testing the input values of 0, 1, 
2, 3, and a number greater than 3. To end the program press the RUN/ 
STOP and RESTORE keys. To read more than one DATA statement, 
simply remove a flag value. For example, to read the data items in lines 
80 and 90, remove the flag value (-99) from line 80, or to read the last six 
data items for an input value of 2, remove the flag value (-99) at the end 
of line 90. 

To edit this program to use a FOR NEXT loop to read the data values, 
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ENTER: 5@ FOR I=1 TO 3 
6@ READ B:PRINT B 
7@ NEXT I 


RUN this program, using the values 0, 1, 2, 3, and a number greater 
than 3 as input at least once. Press the RUN/STOP and RESTORE keys 
to end the program. This program provides the same output as the pre- 
vious program. Of course, the flag value in each of the DATA state- 
ments is no longer needed, but will not be read because the upper limit 
of the FOR statement is 3. 

To demonstrate a valid programming use for RESET, the following 
program would be of use to automobile salesmen if they are wise 
enough to have a Commodore 64 in their showroom. This program lists 
the features available for a jeep. The options for this jeep, which sales- 
men would love to sell every buyer, are pictured in Figure 11.1. 


Figure 11.1: JEEP showing 10 buyer options. 


Clear computer memory, use AUTO 10,10 for automatic line number- 
ing, and enter the following program. The Simons’ BASIC commands 
illustrated are shown to the left of the program listing. 


Command 
Illustrated Program Listing 
CENTRE 18 PRINT '"'CCLEAR DOWN]": CENTRE ''AUTO 


FACTS'':PRINT ''[DOWN2]"' 
28 INPUT '"'NAME OF AUTO''; CARS 
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IF THEN ELSE 38 IF CAR$<>"JEEP" GOTO 200:ELSE:PRINT 
40 PRINT '"'LIST STANDARD FEATURES (STD) 
OR OPTIONAL (OPT) FEATURES?"': PRINT 
5@ INPUT ''STD OR OPT"; AS 

RESET 68 IF A$="'STD" THEN RESET 118 

RESET 76 IF A$=""OPT'' THEN RESET 138 
86 READ D$,P:IF D$=""END OF LIST" 
GOTO 158 
96 PRINT D$:IF P>®@ THEN PRINT TAB(5) P 
198 GOTO 88 
11 DATA 4.2 LITER ENG.,,4-SPD. MANUAL 
FLR. SHIFT,,CONSOLE,,SPARE,@ 
128 DATA H.D. ENGINE PKG.,,HARDTOP,, 
END LIST,® 
138 DATA (1) CONVERTIBLE TOP,379, (2) TOP 
BOOT,28, (3) TIRE COVER,26,(4)ROLL BAR 
PAD 
148 DATA 71,(5)SADDLE BAGS,52, (6) 
SPLASH GUARDS,28,(7)GRILL GUARD,67 
15@ DATA (8)WINCH ASSEMBLY,718,(9)AIR 
CONDITIONING, 719, (18)AM/FM RADIO,115 
168 DATA END OF LIST,, 

IF THEN ELSE 178 IF A$="'OPT" GOTO 208:ELSE:PRINT 
188 INPUT ''SEE OPTION LIST CY/N)''; ANSS 
198 IF ANSS="'Y'"' THEN AS="0PT'':GOTO 78 
208 END 


This program is written to show the standard and/or optional features 
of only one car—the JEEP. If JEEP is not entered as input for NAME 
OF AUTO, the program will end. Of course, a car dealer would include 
a menu listing all of the cars that he sells, and use INKEY for function 
key branching. 

RUN the program, testing all of the program options, that is, auto 
other than JEEP, standard listing only, standard and options listings, 
and options listing only. Note: The double commas in the DATA state- 
ments on lines 110 and 120 indicate no value, that is, a zero for a 
numeric variable or an emply string for a string variable. This conven- 
tion cannot be used at the end of a statement line when another DATA 
statement follows. 

Using a computer as a sales tool in a dealership showroom would be 
exciting for automobile buyers and would eliminate possible salesmen 
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errors on available options and option prices. Of course, a picture of 
the buyer’s dream car on the computer screen—in the exterior and inte- 
rior colors of their choice—could be a terrific sales tool also! The soft- 
ware’s available for this challenge, too. 


LOCAL and GLOBAL 


These commands permit the same variable (variable name) to be used 
for holding different data values in different parts of the same program. 
The LOCAL statement stores the values of previously defined variables 
(assumed to be GLOBAL) and clears the values for reuse. The local val- 
ues can then be stored and cleared, and the global values returned with 
the use of the GLOBAL statement. 


Statement format: 


LOCAL variable list 
GLOBAL 


LOCAL must specify all variables that are to be reused. These vari- 
ables must have been previously declared. If a variable is specified in 
the variable list of LOCAL that has not been previously used in the pro- 
gram, the program will “hang.” To break out of the program you must 
press the RUN/STOP and RESTORE keys. If LOCAL is part of a multi- 
ple statement line, it must be the last statement on that line. If any state- 
ment follows LOCAL on a statement line, it will cause a SYNTAX 
ERROR. 

The GLOBAL statement may be used anywhere on a multiple state- 
ment line. It will restore the values of all variables previously declared 
as LOCAL to their original values—global values. You may switch back 
and forth between the global and local values throughout a program. 

Enter the brief demonstration program shown below, using AUTO 
10,10 to generate line numbers, or use those shown in the listing. 


18 A=18:A$=""DIVISION 1":PRINT A,AS 
2@ LOCAL A,AS 

36 A=38:AS="DIVISION 2":PRINT A,AS 
49 GLOBAL:PRINT A,AS 

5@ LOCAL A,A$ 

68 PRINT A,AS 

76 END 
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RUN the program. The output shows first the GLOBAL values (line 
10), then the new LOCAL values set in line 30. The original values are 
then restored by GLOBAL in line 40. Finally they are changed back to 
the LOCAL values again in line 50. The screen output is: 


10 DIVISION 1 
30 DIVISION 2 
16 DIVISION 1 
38 DIVISION 2 


The next program further demonstrates LOCAL and GLOBAL by 
using five variables (three numeric and two string variables) with 
INPUT, LET (assignment), and the READ and DATA statements 
assigning the initial values. Four of the five variables will be used both 
as LOCAL and GLOBAL variables. Use AUTO 10,10 or key in the line 
numbers when entering the following program. The Simons’ BASIC 
commands illustrated are shown to the left of the program listing at the 
line in which they occur. 


Command 
Illustrated Program Listing 


18 PRINT ''TCLEAR DOWN)" 
26 INPUT ''ANY NUMBER BETWEEN 1 AND 5'';N 
38 A=108:TYPES="GLOBAL ":VS=""VALUES" 
AT 40 PRINT:PRINT AT(25,6) TYPES; V$ 
5@ PRINT MINS MAS MBs 
68 FOR I=1 TO 3:READ B:PRINT N,A,B:NEXT I 


LOCAL 76 LOCAL N,A,B, TYPES 
RESET 88 TYPES=""LOCAL ":IF N=®8 THEN RESET 158 
AT 98 PRINT:PRINT AT(25,12) TYPES; V$ 


198 FOR I=1 TO 3:READ B:A=A+1:PRINT 
N,A,B: NEXT I 

GLOBAL 118 GLOBAL 

AT 126 PRINT:PRINT AT(25,16) TYPES; VS 
136 PRINT N,A,B 
148 DATA 8,9,18 
15® DATA 11,12,13 

LOCAL 168 LOCAL N,A,B, TYPES 
176 PRINT:PRINT AT(25,18) TYPES; VS 
188 PRINT N,A,B 
198 END 
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RUN the program. Study the program output carefully to understand 
exactly how the variable values were treated throughout the program. 
When variables are designated as LOCAL the previous value is cleared. 
If another value is not assigned, the value of the variable remains 0 if 
numeric or null if a string variable. The variable N in this program is 
not assigned a value as a LOCAL variable and remains @. This new 
value of zero is then used as the test to RESET the data pointer. 

If you would like to run this program several times without entering 
RUN, replace the END statement with: RESTORE:PAUSE 5:GOTO 26. 
These statements will cause the program to restore the original data 
pointers, pause for five seconds, and then repeat the program. The 
INPUT prompt will appear at the line following the program output. 
Because of the AT statements (lines 40, 90, 120), the output will print in 
the same screen locations, replacing the numbers previously output. 
Each time the INPUT value is covered by the blinking cursor, you may 
input another value. The only data that will change will be the value of 
the INPUT variable, N. Press the RUN/STOP and RESTORE keys to 
end the program. 

This ends our work with Simons’ new methods of data handling. 


Structured 
Programming 


Here are extremely useful additions to the BASIC programming lan- 
guage—additions that make programming more efficient. These are 
statements that you will use frequently. 

This chapter reviews the four Simons’ BASIC procedure commands 
and the MERGE command. A “procedure” is a program segment that, 
like a subroutine, can be used more than once during the execution of a 
program. The MERGE command enables you to add a program or a 
“procedure” from a storage device to the program in memory. It is 
reviewed here because of its use in establishing and using a procedure 
“library.” | 

The four procedure commands help to change Commodore BASIC 
into a more structured programming language—for a touch of Pascal! 
PROC, END PROC, and EXEC will replace your use of GOSUB and 
RETURN. PROC and CALL will sometimes replace your use of GOTO. 
Procedures, unlike Commodore BASIC subroutines and GOTO, per- 
form a branch using their procedure name, not a line number. This is 
the power of PROCs—the ability to branch without using a line 
number. 

The MERGE command adds a program from a storage device to the 
program currently in memory, providing a method of using previously 
written programs, subroutines, or procedures to create a new program, 
or a new version of a program. This, of course, can save a great deal of 
programming time. 

There are two types of Simons’ BASIC procedures: closed and open- 
ended. The closed procedure can replace a subroutine, Commodore 
BASIC’s GOSUB and RETURN statements, by using the procedure 
statements PROC, END PROC, and EXEC. The open-ended procedure 
can be used instead of the BASIC GOTO statement, using the proce- 
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dure statements PROC and CALL. Both types of procedures eliminate 
reference to line numbers by using the PROC statement to reference a 
procedure name. Using a character string reference for branching, 
rather than a line number, has obvious advantages. It eliminates the 
coding nightmare of having used an incorrect line number—or two—for 
GOTO’s or GOSUB’s, then searching through the program for that cor- 
rect line number. A descriptive name is, of course, far easier to remem- 
ber than a line number. 

We will begin our review of Simons’ BASIC procedures with the 
open-ended procedure, which may be used in place of the BASIC 
GOTO statement. 


PROC 


The PROC statement assigns a user-specified name to a subroutine. 
This procedure name enables program transfer to be executed without 
regard to line numbers. The procedure name, rather than a line num- 
ber, is specified by the calling statement. 


Statement format: 


PROC procedure name 


The procedure name is assumed to be all characters following the 
PROC command. Therefore, on a multiple statement line PROC must 
be the last statement. The length of the procedure name is only limited 
by the length of a statement line (two print lines). 

An open-ended procedure for averaging is shown below. Enter these 
statement lines now for use with the next program. 


88 PROC AVERAGE 
98 AVERAGE=SUM/COUNT 
198 PRINT ''AVERAGE:''; AVERAGE 


A branch to this procedure is performed by the CALL statement. 


CALL 


This statement is used in place of GOTO, providing the procedure 
name needed for transferring program control. 
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Statement format: 


CALL procedure name 


With CALL replacing GOTO and procedure name replacing line 
number, the statements are equivalent. After the branch is executed, 
the program proceeds sequentially, by line number, the same as it 
would following the GOTO statement. The CALL statement, like the 
PROC statement, must be the last statement on the statement line, since 
all characters following CALL are read as part of procedure name. Of 
course, the procedure name used in the CALL statement must be 
exactly the same as the procedure name of the PROC being branched 
to. 

The following demonstration program will use the procedure, AVER- 
AGE, that was entered previously, and create and use a second proce- 
dure, ACCUMULATE DATE. To enter this program use the line num- 
bers shown. (If automatic line numbering is used, line 80 will be 
removed!) The Simons’ BASIC commands illustrated are shown to the 
left of the program listing. 


Commands 
Illustrated Program Listing 


CENTRE 16 PRINT: CENTRE "AVERAGING": PRINT 
PROC 26 PROC ACCUMULATE DATA 

3@ INPUT "NUMBER";N 
CALL 49 IF N=-99 THEN CALL AVERAGE 

5@ SUM=SUM+N: COUNT=COUNT+1 

60 PRINT N 


7® CALL ACCUMULATE DATA 


LIST the program. The procedure named AVERAGE comprises the 
last three program lines. RUN the program, using as many input values 
as you wish. To obtain the average of the input values and end the pro- 
gram, use -99 as input. 

One advantage to using PROC and CALL, rather than GOTO, is to 
avoid referencing line numbers. This would be a greater advantage in a 
program where AVERAGE was accessed from many different points in 
the program. A second advantage is that PROC AVERAGE can be 
stored as a separate program and tacked on to this or another program 
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using MERGE, without regard to line numbers. This will be demon- 
strated later in this chapter. 

Now we will review closed procedures, the more powerful and useful 
of the two procedure methods. The three statements—PROC, EXEC, 
and END PROC—perform the same programming function as GOSUB 
and RETURN, but use a procedure name for branching rather than a 
line number. The PROC statement which was already reviewed for 
open-ended procedures, uses the same format for closed procedures. 


EXEC 


This statement is the branching (sending) statement for closed pro- 
cedures. 


Statement format: 


EXEC procedure name 


Again, this statement must be the last statement on a multiple state- 
ment line, because all characters following EXEC are assumed to be a 
part of the procedure name. Of course, the procedure name used in 
EXEC must be exactly the same as the procedure name used for the 
PROC statement to which program control is being transferred. 


END PROC 


The END PROC statement, the last statement of a closed procedure, 
transfers program control back to the statement following the EXEC 
statement that sent it. 


Statement format: 


END PROC 


For a demonstration of closed procedures enter the following pro- 
gram, either using AUTO 10,10 or entering the line numbers shown. 
The Simons’ BASIC commands illustrated are shown to the left of the 
program listing. 
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Commands 
Illustrated § Program Listing 


CENTRE 1@ PRINT ''CCLEAR DOWN]"': CENTRE "SOLVE 
THE MATH PROBLEM": PRINT 
20 PRINT:PRINT "ENTER:":PRINT TAB(5) 
"1 FOR ADDITION" 
38 PRINT TAB(5) "2 FOR SUBTRACTION" 


FETCH 40 FETCH "CDOWN]",1,A 

IF GOTO ELSE 5@ IF A<1 OR A>2 GOTO 20:ELSE: 

EXEC EXEC RANDOM NUMBERS 

IF THEN ELSE 68 IF A=1 THEN Z=X+Y¥:PRINT X;" + "35" 
= "SELSESZ=X-YsPRINT Xp" - "SY" = 

EXEC 76 EXEC INPUT ANSWER 

CENTRE 86 PRINT "CDOWN2]"': CENTRE "NEXT 
PROBLEM'': PRINT 
98 GOTO 20 
198 END 


This main portion of the program will EXECute two procedures: 
RANDOM NUMBERS and INPUT ANSWER. We can now simply add 
them to the end of this program, since we don’t need to be concerned 
with line number references. 

To enter these procedures either use AUTO 1000,10 for automatic 
line numbering or enter the line numbers as shown in the following list- 
ing. Again, the Simons’ BASIC commands illustrated are listed to the 
left of the statements in which they occur. 


Command 
Illustrated Procedure Listing for Random Numbers 


PROC 1988 PROC RANDOM NUMBERS 
1918 REM X=RANDOM NUMBER IN RANGE 48-99 
and Y=RANDOM NUMBER IN RANGE 19-48 
1928 X=INT(68*RND(1)) +48 
1938 Y=INT(31*RND(1))+18 
END PROC 1948 END PROC 


Note: For those of you who have had trouble using RND to set vari- 
ous number ranges, this formula may be helpful: lowest number in 
range minus 1, subtracted from the highest number in range equals the 
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multiplier. In the above program, the multiplier for X is (40-1)-99, or 99- 
39, which equals 60, and the multiplier for Y is (10-1)-40, or 40-9, which 
equals 31. 

Enter the second procedure, INPUT ANSWER, to complete the pro- 
gram. Again, the Simons’ BASIC commands illustrated are listed to the 
left of the statements in which they occur. 


Command 
Illustrated § Procedure Listing for Input Answer 


PROC 1958 PROC INPUT ANSWER 
1968 INPUT ''ANSWER''; ANS 

IF THEN ELSE 1878 IF ANS=Z THEN PRINT 
"CORRECT" :ELSE:PRINT ‘INCORRECT. THE 
ANSWER IS:";Z 

END PROC 1986 END PROC 


RUN the program and end by pressing the RUN/STOP and 
RESTORE keys. 

Each of these procedures can be saved on a storage device and be 
added to future programs, using the MERGE command. This will be 
shown in the next demonstration program which will add two pre- 
viously saved procedures to a main program. This program, Master 
Grade List, will be of particular interest to both teachers and students 
alike. It is used to list and average grades, convert number grades to let- 
ter grades, and display letter grade distribution of student test scores. 
The two procedures that will be used are: GRADE AVERAGE and 
GRADE CONVERSION. 

Enter the first procedure, GRADE AVERAGE, using AUTO 1000,10 
or the line numbers shown. 


1998 PROC GRADE AVERAGE 
1918 ROUND=SUM/6 

1828 GRADE=INTCROUND) 
1038 END PROC 


If you have a storage device, disk drive or cassette drive, SAVE this 
procedure using “GRADE AVERAGE” as the program name, and clear 
computer memory. 

Enter the second procedure, GRADE CONVERSION, using AUTO 
2000,10 or the line numbers shown. 
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2008 PROC GRADE CONVERSION 

2018 IF GRADE<=64 THEN F=F+1:LG$="'"F'': GOTO 20798 
2028 IF GRADE<=73 THEN D=D+1:LG$='"'D'': GOTO 20798 
2038 IF GRADE<=79 THEN C=C+1:LG$="'C'': GOTO 2678 
2049 IF GRADE<=87 THEN B=B+1:LG$="'B'': GOTO 2679 
2058 IF GRADE <=93 THEN B1=B1+1:LG$='"'B+"': GOTO 2078 
2960 IF GRADE<=106 THEN A=A+1:LG$="A'': GOTO 2878 


2078 END PROC 


SAVE this procedure using the program name “GRADE CONVER- 
SION” and clear computer memory. 

Enter the following main program using AUTO 10,10 or the line 
numbers shown with the listing. The Simons’ BASIC commands illus- 
trated in this program are shown to the left of the program listing. 


Command 
Illustrated 


CENTRE 

AT 

IF GOTO ELSE 
IF GOTO ELSE’ 


EXEC 
EXEC 


PAUSE 


Program Listing 


18 PRINT "'CCLEAR DOWN]'':CENTRE ''MASTER 
GRADE LIST-ENGLISH 1-J.PARKER":PRINT 

28 PRINT AT(5,6)"'TEST SCORE GRADES'': PRINT 
30 READ N$:IF NS=""END' GOTO 148 
:ELSE:PRINT NS 

49 CT=0:SUM=8 

5@ READ G:IF G=-99 GOTO 6@:ELSE:PRINT 
G,:CT=CT+1:SUM=SUM+G:GOTO 58 

68 EXEC GRADE AVERAGE 

7® EXEC GRADE CONVERSION 

88 DATA JANE HALL,83,84,85,92,100,96,-99 
98 DATA SAM BENDER,93,88,89,190,70,100,-99 
196 DATA JOE PRIME,75,84,73,82,78,76,-99 
118 DATA END 

128 PRINT:PRINT '"'GRADE AVERAGE:''; GRADE; 
"LETTER GRADE:"'; LGS 

138 PRINT:GOTO 38 

146 PAUSE 5 

158 PRINT:PRINT ''NUMBER OF STUDENTS 
RECEIVING EACH GRADE IS:" 

168 PRINT "A=""5A,"Bt="5B1,"B="5B; "'C="5C; 
MDS" DsEstte 
176 END 


12 Structured Programming < 103 


MERGE 


This command loads a program from a storage device into memory, 
adding the stored program to the end of the program in memory. It does 
not merge the two programs by line number. You should always list the 
program after using MERGE. Depending on the programs metged, you 
may wish to use.RENUMBER or simply renumber certain statement 
lines. When merging a procedure onto a main program, this should not 
be a problem. Simply number your procedure statement lines using 
much higher line numbers than would normally be used in your main 
programs. 


Command format: 


MERGE “program name” ,device number 


The MERGE parameters program name and device number follow 
the same syntax rules as Commodore BASIC’s SAVE and LOAD com- 
mands. Program name is limited to 16 characters, and device number 8 
specifies a disk drive, while no device number or device number 1 spec- 
ifies a cassette unit. 

If you were able to SAVE the two procedures before entering the 
main program above, 


ENTER: MERGE "GRADE AVERAGE"',8 
if your storage unit is a disk drive. 
ENTER: MERGE ''GRADE AVERAGE", 1 


or 
MERGE ''GRADE AVERAGE" 


if your storage device is a cassette unit. 

LIST the program. The first procedure, GRADE AVERAGE, has been 
added to the current program. Add the second procedure in the same 
manner. 


ENTER: MERGE "GRADE CONVERSION",8 
if you’re using a disk drive. 


ENTER: MERGE ''GRADE CONVERSION", 1 
or 
MERGE "GRADE CONVERSION" 


if you’re using a cassette unit. 
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LIST the program. Both procedures are now appended to the main 
program. RUN the program. 

Of course MERGE is not limited to adding procedures to main pro- 
grams. You can merge any program to the program in memory. Just 
remember that the program added from your storage device will be 
added td the end of the program in memory—with line numbers 
unchanged. MERGE does not combine the two programs by line num- 
ber. You may have to list and repair! 

All programmers will certainly use PROC’s and MERGE to simplify 
their programming tasks, whether those tasks are performed at the 
office, or at home for personal business or pleasure. 


Low-Resolution 
Color and 
Graphics 


Introduction 


The following is a brief overview, by chapter, of the low-resolution 
color, graphic, and special screen commands. The low-resolution 
screen is the normal Commodore screen, 40 columns wide—numbered 
@ through 39, by 25 rows deep—numbered @ through 24. This is the 
screen mode that has been used so far in this book. 


Chapter 13 


COLOUR sets both the border and screen colors, replacing the Com- 
modore BASIC commands POKE 5328@ for border color, and POKE 
53281 for screen color. 

BCKGNDS permits the user to specify the background color of non- 
graphic characters. Up to three different character background colors 
can be displayed by using special formats in PRINT commands. 

FLASH enables the user to flash the character background color by 
alternating between normal and reverse field at specified intervals. 

OFF turns off the FLASH command. 

BFLASH is used to flash the screen border by alternating between 
two user-specified colors displayed at specified intervals. 

BFLASH @ turns off the BFLASH command. 

FILL covers a specified screen area with a designated character, dis- 
played in a specified color. 

FCOL is used to change the print color of characters. 


105 


106 >» IV _ Low-Resolution Color and Graphics 


FCHR specifies characters to be printed in a specific screen area. 
This command is used with FCOL to perform the same function as 
FILL. 

SCRSV is the statement used to save a screen display on a storage 
device. 

SCRLD is the command used to restore a previously saved screen 
display. 


Chapter 14 


MEM moves the Commodore character set from ROM into RAM so 
that they may be replaced with user-defined characters. 

DESIGN 2 specifies the Commodore character to be replaced with a 
user-defined character. 

The @ command is used to create (‘‘draw’’) the user’s graphic char- 
acter. 

LEFT, RIGHT, UP and DOWN are the screen “‘scrolling’’ commands. 
They are used to scroll a specified screen area, thereby moving the 
characters displayed in that area. 


Key to Entering Program Listings 


Additional key conventions used in this section and throughout the 
rest of the book are: 

[RVS ON] means to hold down the control key and press the RVS ON 
key. 

[SHIFT LOCK] means to press the SHIFT LOCK key, locking it in 
down position. 

[SHIFT LOCK OFF] means to press the SHIFT/LOCK key to return it 
to the up position. 

[CTRL] means to hold down the CTRL key while pressing the number 
key shown next. 


Color and 
Characters 


Now begins the demise of POKEs! The memory locations for screen 
and border colors can be forgotten when using Simons’ BASIC. They 
are replaced with a one word command—COLOUR. Four additional 
commands allow other exciting uses of color on a low-resolution 
screen, while three new commands combine interesting uses of charac- 
ters and color. There are even commands to save and load a screen dis- 
play. Each command will first be demonstrated in the immediate mode, 
then in the program mode. 

The commands reviewed in this chapter are especially suited to both 
entertainment and educational programs. 


COLOUR 


This is the only command used by Simons’ two new graphic 
screens—high resolution and multicolor—that is also used on a low res- 
olution screen. (The high resolution screen and its special commands 
are reviewed in Section V, and the multicolor screen in Section VI.) 

This command sets both the border color and screen color, using only 
the command word COLOUR, and the Commodore BASIC color num- 
bers. It replaces the,two Commodore BASIC commands—POKE 53280, 
border color, and POKE 53281, screen color—that you have been using 
to set the screen and border color. 


Command format: 


COLOUR border color number,screen color number 


Again, as with CENTRE, this command uses the English spelling of 
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the word color. You’ll have to remember to spell this command word 
with the additional letter U. 

For your convenience, the Commodore BASIC color numbers used 
for both screen and border color, are shown in Figure 13.1. I have also. 
included the key press for each color, since you will need these for 
another command covered in this chapter. 


Color Number Color Key Press 
) Black CTRL 1 
1 White CTRL 2 
2 Red CTRL 3 
3 Cyan (powder blue) CTRL 4 
4 Purple CTRL5 
5 Green CTRL6 
6 Blue CTRL 7 
7 Yellow CTRL 8 
8 Orange CMDR 1 
9 Brown CMDR 2 
10 Light Red (hot pink) CMDR 3 
11 Gray 1 (dark grey) CMDR 4 
12 Gray 2 (medium grey) CMDR 5 
13 Light Green CMDR 6 
14 Light Blue CMDR 7 
15 Gray 3 (light grey) CMDR 8 

Figure 13.1 


The following command will create a blue screen with a yellow 
border. 


ENTER: COLOUR 7,6 
To return the screen to the normal colors, 
ENTER: COLOUR 6,15 


This command will also be used in conjunction with the other color 
commands reviewed in this chapter. 


BCKGNDS 


This command changes the character background color of PRINT 
command characters that are entered in one of three specific formats. 
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Those formats are: SHIFTed characters, RVS ON characters, and RVS 
ON SHIFTed characters. 

As you know, each character resides in a one-byte square consisting 
of 8 by 8 pixels. Each character fills only a portion of this square. The 
character background is that portion of the square not covered by the 
character. You clearly see this only when a character is printed in 
reverse field, that is, when using the RVS ON key, because the charac- 
ter background is a different color than the screen. 


Command format: 
BCKGNDS sc,b1 color,b2 color,b3 color 


The parameter sc designates the screen color. This will be the back- 
ground color of that portion of the screen which is not filled by charac- 
ters using the BCKGNDS command. 

The parameters b1 color, b2 color, and b3 color designate the color to 
be used for the background of characters entered in one of the three 
special PRINT formats. The color numbers used for each of the 16 
Commodore colors are shown in Figure 13.1 on page 108. 

The special PRINT formats for the BCKGNDS parameters are shown 
below. 


b1 color: The background color for all SHIFTed characters. 
b2 color: The background color for all RVS ON characters. 
b3 color: The background color for all RVS ON SHIFTed characters. 


All four parameters of the BCKGNDS command must be specified, 
even if all three color parameters will not be used. The color parameter 
for formats that are not used will simply be ignored. 

Only non-graphic characters—those shown on the key tops—can be 
used by this command. The graphic characters shown on the key fronts 
cannot be used. Single character keys, such as alphabetic characters, 
can use any of the three text formats—shifted, reverse field, or reverse 
field and shifted. Keys containing two characters, for example, the 
number keys on the top row and the five punctuation keys on the third 
and bottom rows, can use only the reverse field format. I know that this 
doesn’t seem reasonable, since the upper character must be shifted to 
print, but, trust me, it’s true! 

All of the above will be infinitely clearer after you have used this 
command. Remember, the first parameter of the BEKGNDS command 


# 
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is screen color, not a character background color. The order of the 
background color formats is: shifted, reverse field, reverse field shifted. 
Each of the following immediate mode examples will print the char- 
acter string “COMMODORE” on a yellow screen. 
The first example is printed in the RVS ON format. Therefore, the 
characters will use the b2 color, color number 4 (purple). 


ENTER: BCKGNDS 7,3,4,5:PRINT "CRVS ON]COMMODORE" 


In the next example the character background will use the b1 color, 
color number 3 (cyan) because the format is SHIFTed characters. 


ENTER: BCKGNDS 7,3,4,5:PRINTCSHIFT/LOCK] 
"COMMODORE" [CSHIFT/LOCK OFF] 


The third example, shown below, uses the RVS ON SHIFTed format 
accessing the third color parameter, b3, the color green, color num- 
ber 5. 


ENTER: BCKGNDS 7,3,4,5:PRINT "'CRVS ON] 
CSHIFT/LOCK] COMMODORE'CSHIFT/LOCK OFF] 


To restore the normal screen colors, press the RUN/STOP and 
RESTORE keys. 

I deliberately used reverse field in the first example above in order to 
present this format and the command without confusion. If shifted 
characters had been the first entry, the characters that printed on the 
screen might well have confused you! This is explained below. 

Important Note: When entering shifted characters, they print the 
graphic characters shown on the key fronts. The Commodore is using 
the upper case/graphics mode when either the SHIFT or SHIFT/LOCK . 
key is used. (In fact, the typewriter mode—upper/lower case—is not 
accessible when using Simons’ BASIC.) For this command, entering 
text in the SHIFTed format when a background color is initialized 
(used for the first time) will cause the graphic character set to be 
printed. The graphic characters will be changed to letters as soon as the 
commands are entered, producing the correct results. After a color has 
been initialized, characters typed in the SHIFTed format will print the 
characters shown on the key top. The characters you expected to see 
printed! Of course, until the color is initialized, there is a serious disad- 
vantage in checking typing accuracy! This disadvantage is more serious 
in the program mode than in the immediate mode. However, now you 
won't be surprised when you see graphic characters instead of the char- 
acters you thought you were entering. This scenario will be shown in 
the brief demonstration program that follows. 
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This program uses the three background formats, with each using a 
different color. When the text COMMODORE and COMPUTERS is 
entered, they will print as graphic characters. The Simons’ BASIC com- 
mands demonstrated are listed to the left of the program statements. 


Command 
Illustrated Program Statements 


18 PRINT "CCLEAR]" 

COLOUR 28 COLOUR 6,12 

BCKGNDS 38 BCKGNDS 12,3,4,7:PRINT [SHIFT LOCK] 
"COMMODORELSHIFT LOCK OFFI[RVS ON] 64 
CSHIFT LOCK]COMPUTERS!""[SHIFT LOCK OFF] 


Since RVS ON was not turned off in line 36, COMPUTERS will use 
the color for the reverse field shifted format. 

RUN the program. You certainly have vivid color! You may want to 
change the color numbers to tone down the contrasts. Do you see the 
background color of the exclamation mark? Even though the SHIFT key 
was also used, because this character resides on a two-character key it 
can only use the reverse field format. The only keys that can access 
either of the two shifted formats (SHIFTed and RVS ON SHIFTed) are 
the character/graphic keys. This is important to remember when plan- 
ning your character backgrounds. 

Press the RUN/STOP and RESTORE keys to return to the normal 
screen. 

Now you will see why a typing error can be a real problem when ini- 
tializing a shifted background color. LIST the program. The graphic 
characters have not been replaced by alphabetic characters in the list- 
ing. I don’t think you would want to edit this PRINT statement the way 
it now appears! But, there’s a remedy. 

RUN the program again and do not clear the screen. LIST the pro- 
gram. Now the program can easily be edited. Since seeing is believing, 
use the editing keys to replace the word COMPUTERS in line 30 by 
pressing SHIFT/LOCK and entering WITH SIMONS BASIC. RUN the 
program once again. Note: If you used an apostrophe at the end of 
SIMONS, it printed in purple—used the b2, reverse field format color. 
Remember, characters on two-character keys can only use the reverse 
field format. Now that you understand these possible problems, we will 
move on to another. 

If more than one BCKGND statement is used in a program, the color 
parameters of the most recently executed BCKGND statement will over- 
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ride the color parameters of the preceding BCKGND statement(s). The 
following statements added to the program in memory will demon- 
strate this. Clear your screen (press the RUN/STOP and RESTORE 
keys), LIST the program, and enter the following statement lines. 


46 PAUSE 3 

5@ PRINT "CDOWN 2]" 

68 BCKGNDS 12,4,5,6:PRINT CSHIFT LOCK]''CAN [SHIFT 
LOCK OFFICRVS ONJBE CSHIFT LOCKICOLORFUL" CSHIFT 
LOCK OFF] 


RUN the program. The background of the first character string was 
changed to the colors specified in the second BCKGNDS statement— 
purple, green, and blue—as soon as the second BCKGNDS statement 
(line 66) was executed. If you wish to use different background color 
parameters in the same program, clear the screen between BCKGND 
statements. 

Press the RUN/STOP and RESTORE keys to return to a normal 
screen, and clear computer memory. 

The next command gets even flashier! 


FLASH 


This command automatically uses the Commodore RVS ON and RVS 
OFF functions, enabling you to alternate between normal and reverse 
background color for any PRINT command character, graphic or non- 
graphic, that has been entered in the Commodore color specified in this 
command. You may use both the CTRL and CMDR color keys, making 
use of all 16 colors. For the Commodore color numbers and their asso- 
ciated key press, refer to Figure 13.1, page 108. 


Command format: 
FLASH color number 


: or 
FLASH color number,speed 


When a speed is not specified, “flashing” will occur every four sec- 
onds. To set a specific speed, specify a number in the range 1 through 
255. Each unit of speed is approximately one-sixteenth of a second. A 
speed of 80 would cause flashing to occur every five seconds, which is 
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quite slow. A rapid speed will occur by using ten or less for the speed 
parameter. 

The same color must be specified in the FLASH command as the 
color used in the PRINT command of the character(s) to be flashed. For 
example, using CMDR 7 in the PRINT command would require using 
the color number 14 in the FLASH command. All characters on the 
screen having the color specified in FLASH will alternate between nor- 
mal and reverse-field in that color. Be sure to use a different color, or 
no color, on those characters that you don’t want “‘flashing’’. After the 
FLASH command is initialized, “flashing” characters will continue to 
be displayed unless FLASH is turned off. Even when the program ends, 
the word READY will flash, and all characters entered thereafter will 
flash. So it is a must to learn how to turn flashing off. 


Command format: 


OFF 


Fortunately, this is an easy command to remember. Both FLASH and 
OFF can be used in the immediate mode. 

The following set of commands will demonstrate the FLASH and 
OFF commands. 


ENTER: PRINT "CCTRL 3]SIMONS' CCTRL 8]BASIC'': 
FLASH 2,1@:PAUSE 3:0FF 


Only the character string entered in red flashed, because this is the 
only color specified in a FLASH command. To also flash the word 
BASIC, you must enter a second FLASH command, FLASH 7,106. The 
new set of commands is shown below. Clear the screen before entering 
these commands, 


ENTER: PRINT "CCTRL 3]SIMONS' CCTRL81]BASIC"': 
FLASH 2,18:FLASH 7,1@:PAUSE 3:0FF 


Now the entire string flashes—SIMONS’ in red and BASIC in yellow. 
Note: Be careful not to use either the screen or border color in a 
FLASH command. Using the screen color for characters will, of course, 
produce nothing. Using the border color will cause the entire screen to 
“flash’’! 
When using both the BCEKGNDS command and the FLASH command 
in one program, some advance planning must be done. Both the second 
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background color parameter of the BCKGNDS command and the 
FLASH command use RVS ON. The RVS ON color parameter in 
BCKGNDS can override the FLASH command color. 

If the BCKGNDS statement precedes the color statements to be used 
by FLASH, the background will flash in the color specified by the RVS 
ON color parameter in the BCKGNDS statement, ignoring the color 
specified in FLASH. The characters will be printed in the color speci- 
fied in the print statement—but “flash” the background color specified 
in the RVS ON parameter of the BCKGNDS statement. If the RVS ON 
color parameter of the BCKGNDS statement and the FLASH command 
color are the same, the characters will alternately be covered by a solid 
bar in the specified color and printed in the specified color. This is not 
really the same as “flashing” characters, as the characters are not 
always visible. This is fine as long as this is the effect that is wanted! 

If the BCKGNDS statement follows the color statements to be used by 
FLASH, the background color used in those statements is not affected. 
However, remember that the print color used in the last print statement 
will continue to be used throughout the program, unless it is specific- 
ally changed either in a separate statement or as part of a print state- 
ment. 

The FLASH statement may appear anywhere in the program. Place- 
ment of this statement does not affect the statement’s execution. 

To demonstrate a flashing character background color in a program, 
enter the following listing. For automatic line numbering, first use 
AUTO 10,10. The Simons’ BASIC commands illustrated are shown to 
the left of the program statements. 


Command 
Illustrated Program Statements 


19 PRINT "CCLEAR]" 


COLOUR 28 COLOUR 6,12 
36 PRINT 'CDOWN 3]" 
BCKGNDS 40 BCKGNDS 12,3,4,7:PRINT CSHIFT LOCK] 


"'COMMODORELSHIFT LOCK OFFICRVS ON] 64 
CSHIFT LOCK]COMPUTERS'CSHIFT LOCK OFF] - 


AT 5@ PRINT AT(12,12)"CCTRL 5]ARE MORE 
EXCITING" 

AT 66 PRINT AT(18,14)"CCTRL 7JUSING" 

AT 7H PRINT AT(15,16)"CCTRL 7]SIMONS' 


BASIC" 
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FLASH 86 FLASH 4,18 
PAUSE 96 PAUSE 5 
OFF 108 OFF 


RUN the program and press the RUN/STOP and RESTORE keys to 
return to the normal screen. 

This program used the same color—purple (4)—in both the RVS ON 
parameter of the BCKGNDS statement and the color number parameter 
of the FLASH statement. This produced a solid bar of purple alternat- 
ing with the display of the character string “ARE MORE EXCITING”. 

LIST the program. To flash a different background color for the char- 
acter string “ARE MORE EXCITING”, change the RVS ON color 
option in the BCKGNDS statement. For example, using the color num- 
ber 1 instead of 4 will cause the background color to flash white rather 
than purple. The background color of the number 64 will also be 
changed to white. Make this color change (from 4 to 1) in line 40 and 
RUN the program again. Press the RUN/STOP and RESTORE keys to 
return to a normal screen. Using a different background color created 
actual “flashing,” where the characters are always visible. This can 
also be a very effective visual technique. 

And, there’s more “flashing” to come! 


BFLASH 


This command displays two alternating border colors at a user-speci- 
fied speed. 


Command format: 


BFLASH speed,c1,c2 


The flashing speed is the same for this command as for the FLASH 
command, but in this command it is a required parameter. Using a 
range of 1 through 255, each unit is approximately one-sixteenth of a 
second. Color 1 (c1) and color 2 (c2) may be any one of the sixteen Com- 
modore color numbers. When flashing ends, the border will continue to 
be displayed in color 2. To change the BFLASH border color, the 
COLOUR command must be used. The border color will continue to 
flash until the BFLASH command is cancelled, as shown below. 
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Command format: 


BFLASH 6 


Using the parameter @ cancels the border flashing command. 
For a demonstration of a flashing red and blue border, 


ENTER: BFLASH 48,2,6 
Then 
ENTER: BFLASH @ 


to turn off flashing. The border will now appear in the last color 
flashed. 

To add a flashing border to the program in memory, enter the follow- 
ing program statement. 


75 BFLASH 48,6,4:PAUSE 5:BFLASH 


This statement line will cause the border to flash blue then purple at 
intervals of approximately two and one-half seconds, for a period of 
five seconds. After the border flashes, the characters will flash. 

RUN the program, and press the RUN/STOP and RESTORE keys to 
return to a normal screen. 


FILL 


This command fills a specified screen area with a character, and dis- 
plays that character in a user-specified color. All parameters are con- 
trolled by the programmer. FILL requires two screen locations, the 
starting row and column coordinates. Remember, the low-resolution 
screen is configured @ through 39 columns and @ through 24 rows. 


Command format: 


FILL row,column,width,depth,character code,color number 


Both the row and column parameters specify the starting position of 
the character to be displayed. Width specifies the total number of col- 
umns to be covered, and depth the total number of rows to be covered. 
The character code is the Commodore poke code for the character to be 
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displayed. These poke codes are listed in Appendix E of your Commo- 
dore User’s Guide, pages 132-134. The color numbers are listed on page 
108, in Figure 13.1 of this book. All six parameters are required. If any 
are omitted, the error message BAD MODE will be given. This error 
message is also generated if width plus starting column is greater than 
40, or the starting row plus depth is greater than 25. 

Clear your screen, and move the cursor down two screen lines, for 
several demonstrations of the FILL command. The first command will 
create a yellow border across the top of your screen, using the CMDR 
graphic character with the poke code 92. The character will begin in 
the first screen column—@—and print in a total of 40 columns. The next 
commands entered will present hanging strips of drying pasta! The 
brown rod will be printed in row 12, beginning in column 12, for a total 
of 15 columns. The pasta strips, in yellow, will also begin on row 12, to 
cover a portion of the rod. They will begin printing in column 17 and 
end in column 21 (a total of 5 columns). The strips will cover 9 rows. 
The last command will create an orange border across the bottom of 
your screen, using the SHIFTed graphic character with the poke 
code 86. 


ENTER: FILL 8,9,40,1,92,7 
FICL F212, 15,7767 Osta 12,17,5,9;9e.7 
FILL 24,8,48,1,86,8 


The following program will display a flag similar to our American 
flag. Using the asterisk—code 42—twelve columns by eight rows of 
white stars will be displayed on a blue background, enclosed in a red 
screen border. Clear your screen and computer memory, and enter the 
following program. To use automatic line numbering with this pro- 
gram, first enter AUTO 10,10. The Simons’ BASIC commands illus- 
trated are shown to the left of the program listing. 


Command Illustrated Program Statements 


COLOUR 18 COLOUR 2,6 

28 PRINT "CCLEAR]" 
PELL 38 FILL 9,8,12,8,42,1 
PAUSE 48 PAUSE 5 


RUN the program and press the RUN/STOP and RESTORE keys to 
return to the normal screen. Clear computer memory. 

Using the FILL command is certainly easier than using a series of 
PRINT AT and DUP commands! 
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FCOL 


This command can be used to change the print color of a character. 
The background of the character square remains unchanged, whether it 
is the screen color or a user-specified background color. 


Command format: 


FCOL row,column,width,depth,color 


Row and column designate the starting location of the character(s), 
width specifies the number of columns covered by the character(s), and 
row specifies the number of rows that the characters fill. The color 
specified will be the new color of the character(s) designated in this 
command. 

Of course, you must first know the location of the characters in order 
to use this command. The PLACE command could be used to give the 
column position, but not the row. 

Following are several demonstrations of FCOL, used in the immedi- 
ate mode. The first set of commands prints the string “HI” beginning 
in column 2, row 2, pauses program execution for three seconds, then 
changes the color of the characters in the string from black to yellow. 
Clear the screen. 


ENTER: PRINT AT(2,4)"HI":PAUSE 3:FCOL 4,2,2,1,7 


The next set of commands prints and flashes a character string in 
red, then changes the color of the characters to green. 


ENTER: PRINT AT(2,12)"C(CTRL 3]MORE COLOR": FLASH 
2,18F PAUSE SeOFFSFCOL 12,2,90,1,9 


The following commands will print the shifted characters in black on 
a red background, pause for three seconds, then change the character 
color to white. The background color will remain red. Clear the screen, 
using the RUN/STOP and RESTORE key. Remember, the character 
string (shifted) will print in graphic characters! 


ENTER: BCKGNDS 15,2,15,15:PRINT AT(2,15) 
"CSHIFT LOCK] BACKGROUND COLORS" 
[SHIFT LOCK OFF]:PAUSE 3:FCOL 15,2,17,1,1 


The following program will use the FILL statement to print six, 20- 
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column bars in white, on a black screen created by the COLOUR state- 
ment. The first FCOL statement (line 50) will change the two middle 
bars from white to red, and the second FCOL statement (line 70) will 
change the second and fifth color bars from white to blue. To use auto- 
matic line numbering with the following program enter AUTO 10,10, 
then enter the program. The Simons’ BASIC commands illustrated are 
shown to the left of the program listing. 


Command 
Illustrated Program Listing 


18 PRINT "CCLEAR]" 


COLOUR 28 COLOUR 8,98 
FILL 36 FILL 19,19,20,6,98,1 
PAUSE 48 PAUSE 3 
FCOL 5@ FCOL 12,19,20,2,2 
PAUSE 6@ PAUSE 3 
FCOL 7H FCOL 11,18,20,1,6:FCOL 14,18,28,1,6 
PAUSE 88 PAUSE 3 
96 END 


RUN the program and press the RUN/STOP and RESTORE keys to 
return to the normal screen. 


FCHR 


This command is used with the FCOL command. Together they 
accomplish exactly the same task as the FILL command. 


Command format: 


FCHR row,column,width,depth,character code 


As you can see, this command does not accept a color code. That is 
why it needs the FCOL command in order to function. Remember that 
this command cannot be used alone to print characters in color, in 
either the immediate or program modes. If FCOL could not be used 
with the FILL command, then this pair of commands would serve a 
more valuable purpose. But since we can change all, or portions, of the 
characters specified in the FILL command by using FCOL, the FCHR 
command would seem to be a duplicate statement! 
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Saving and Restoring a Screen 


The SCRSV (screen save) statement saves a low-resolution screen dis- 
play on a storage device. The SCRLD (screen load) command is used to 
restore a previously saved SCRSV and redisplay the screen on your 
monitor. These Simons’ BASIC commands do not replace the Commo- 
dore SAVE and LOAD commands. They are only used to save and load 
a specific screen display. The program instructions are not saved. 


SCRSV 


The screen save statements for saving to disk and to tape are shown 
below. 


Statement format for Disk: 
SCRSV 2,8,2,“‘screen name,S,W” 


Statement format for Tape: 
SCRSV 1,1,1,“screen name” 


This program statement is used directly after the statements that pro- 
duce the screen display to be saved. When the program is run, the pro- 
gram will execute normally until the SCRSV statement is executed. 
Then the appropriate SAVE instructions will appear on the screen. 
This SAVE process is the same as a BASIC program SAVE. While the 
screen is being saved, the screen will flash periodically. Be patient, 
because a screen save takes about four and a half times longer than sav- 
ing a program and uses four and a half times more storage space. After 
completing the SCRSV statement, the program will continue normally. 

If you wish to test screen save using the color bars program in mem- 
ory, add the appropiate SCRSV statement to the end of the program and 
either change the screen color parameter in the COLOUR statement or 
remove this statement (line 20) from the program. You would not be 
able to see the save instructions on a black screen! 

Remember, only low-resolution screen displays may be saved. High- 
resoluion and multicolor graphics cannot be saved. For this reason, 
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saving a screen display will probably not be used often. The most logi- 
cal reason for saving a screen that I can think of would be to save the 
results of either an educational or game program. This could be very 
useful, especially for youngsters. 


SCRLD 


To redisplay a saved screen, use the SCRLD command. 


Command format for Disk: 
SCRLD 2,8,2,‘‘name’”’ 


Command format for Tape: 
SCRLD 1,1,0,“name”’ 


The screen load command, unlike the BASIC LOAD command, does 
not erase the program in memory when the SCRLD command is exe- 
cuted. 

If you saved the color bars screen, enter the appropriate SCRLD com- 
mand to redisplay this screen and follow the normal Commodore 
LOAD instructions as they appear on the screen. The screen will flash, 
showing glimpses of the saved screen. When SCRLD is completed the 
saved screen display will appear on your monitor. Unfortunately, the 
SAVE instructions will appear at the top of the screen display, and 
READY and the cursor will appear at the bottom of the screen unless 
the program ended with a continuous loop. Even with this unwanted 
text, saving and loading a screen is certainly important for those of you 
who wish to save—and show off—your latest high score on a super 
game program that you wrote! 


User-Defined 
Graphics 


Three commands—MEM, DESIGN 2, and @—give you the ability to 
replace any character in the Commodore character set with a user- 
defined graphic character. These commands can only be used on a low 
resolution screen. Any number of Commodore characters may be rede- 
fined, creating new characters—each filling an 8 by 8 pixel square. 
These “new characters” may then be used in combination to create and 
print any size graphic, using any of the 16 Commodore colors. Three 
demonstration programs will be used in reviewing these commands. 

After creating user-defined characters, “scrolling” will enable you to 
move these characters around the screen. This is accomplished with 
the four commands RIGHT, LEFT, UP, and DOWN. The scrolling com- 
mands will be demonstrated first through several “teaching programs”, 
and then by adding scrolling commands to the last user-defined graphic 
program. 


MEM 


MEM automatically moves the Commodore character set from ROM 
(Read Only Memory) into RAM (Random Access Memory). 


Statement format: 


MEM 


The entire character set can now be accessed. Each character can be 
redefined, character by character, using DESIGN 2 and @. 
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DESIGN 2 


DESIGN 2 specifies the Commodore character to be replaced. 


Statement format: 


DESIGN 2,$E000 + character poke code * 8 


DESIGN 2 is the command word. You must follow DESIGN with the 
number 2. The command DESIGN, without a number following, is used 
for the design of character graphics on a high-resolution or multicolor 
screen (Chapter 19). $E000 is the start address, in hexadecimal, of the 
Commodore character set after being moved into RAM by the MEM 
command. The only user-specified parameter is the poke code of the 
character to be replaced. This number is then added to this start 
address, giving the computer the address of the character to be 
replaced. For this reason, the + must be used in the command. Charac- 
ter poke codes are listed in Appendix E, pages 132-134, of your Commo- 
dore User’s Guide. The last parameter—+*8—specifies that the character 
is 8 by 8 pixels. 

The next step is to create your own graphic character, which will 
replace the character specified in the DESIGN 2 character poke code 
parameter. 


@ 


The at sign—@—is the command used to create each of the eight lines 
of the 8 by 8 grid, each representing one pixel (or dot), used to “draw” 
the graphic character. This is done by turning each pixel “on” or ‘‘off’’. 
To “turn on” a pixel—fill a dot—the character B is used. To leave a 
pixel ‘‘off”’ for an unfilled dot, a period is used. When a pixel is “‘off’’, 
nothing is printed, and only the background will appear in that dot on 
the screen. When a pixel is ‘‘on”’ that dot will be filled, causing that por- 
tion of the graphic to be filled. These 64 dots, 8 dots wide by 8 dots 
deep, will print one character square (one byte)—the same size as the 
character square that is being replaced. 

The first demonstration program will replace the Commodore charac- 
ter Z (poke code 26) with a graphic character, designed as a stick figure. 
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Clear computer memory, and enter the following program. Use AUTO 
100,10 for automatic line numbering. The Simons’ BASIC commands 
illustrated are shown to the left of the program listing. Type the periods 
and the letter B without any spaces between them in the @ statements. 


Command Illustrated Program Listing 


198 PRINT "CCLEARI" 
COLOUR 118 COLOUR 6,1 
MEM 128 MEM 
DESIGN 2 138 DESIGN 2,$E999+26x8 
SO ia: ota sn RR 
Wie Se Site ais, % 
168 @BBBBBBBB 
176: 855, BGBB 
+ BBBB a. 
i a” eawenna - Fea «Sees 
Bee Re Bey Ba ls 
BIW 6 BB ie 
T 228 PRINT AT(5,5)"Z Z 2" 
236 END 


>ooooeo22 2 
a 
co 
i] 
2 


Line 120 will move the Commodore character set from ROM to RAM, 
so that the characters can be accessed. Line 130 designates letter Z— 
poke code 26—as the character to be replaced. Lines 140 through 210 
“draw” the new character—a stick figure. 

RUN the program. Three stick figures will be printed on row 5, begin- 
ning at column 5. Each time the key Z is pressed the stick figure will be 
printed. Of course, you no longer have the use of the character Z until 
you press the RUN/STOP and RESTORE keys. Do this now to return to 
the Commodore character set. Now the character Z will again print. 

Often more than one 8 by 8 pixel is needed to create a graphic charac- 
ter. To do this, you must draw your graphic on two or more design 
grids. Then by printing the new graphic characters in the correct pic- 
ture order the larger graphic is correctly displayed. The following pro- 
gram draws a pine tree in the first design, and the tree’s trunk in a sec- 
ond design. They are then printed, in color, positioned to display one 
graphic picture. Clear computer memory, and enter the following pro- 
gram. For automatic line numbering, enter AUTO 100,10. The Simons’ 
BASIC commands illustrated are shown to the left of the program 
listing. 
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Command 
Illustrated Program Listing 


108 PRINT '"'[CCLEAR]" 


COLOUR 118 COLOUR 6,13 

MEM 128 MEM 

DESIGN 2 138 DESIGN 2,$E960+26x8 
a 168 & «ice BBS 

a T9e @ since BBs 

a 168,.a. . 8888... 

a 170 a. . BBBB . 

a 188 @. BBBBBB . 

a 198 a. BBBBBB . 

@ 269 ABBBBBBBB 

a 219 @BBBBBBBB 

DESIGN 2 228 DESIGN 2,$E896+25«8 
a 238 a. ees 

a 249 a. eae Bear 

a 258 a. - BB. 

a 268 a . Pyaar Sta 

a 278 a. sh es 

a 288 a. este 

a 2988... “ 

a 3008 a. 


AT and DUP 31@ PRINT AT(18,10) DUPC"CCTRL 6]2Z ",5) 
AT and DUP 32@ PRINT AT(18,11) DUPC"CTCMDR 2]Y ",5) 
PAUSE 338 PAUSE 3 

348 END 


Notice that the design for the tree trunk only requires a depth of three 
pixels. However, all eight by eight pixels must be specified. If they are 
not, the program will halt and the error message BAD CHAR FOR A 
MOB followed by the line number of the DESIGN 2 statement lacking 
data. MOB stands for movable object block, Simons’ BASIC’s name for 
a sprite. Sprites are also user-defined graphics, but can only be used on 
high-resolution and multicolor screens. Sprite commands are reviewed 
in Section VII. 

This program will display five green trees on row 10, beginning in 
column 16, and the five brown trunks will print on row 11 directly 
below the trees. The DUP command (reviewed in Chapter 7) is useful 
for a multiple display of the graphic. RUN the program. Note that the Y 
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of READY is now a tree trunk! Press the RUN/STOP and RESTORE 
keys to return to the normal screen and character set. 

The FILL command is also useful for displaying a border using your 
own graphic. The following two statement lines will add a top border of 
the tree graphic to the program in memory. 


ENTER: 348 FILL 8,0,40,1,26,5 
) 358 FILL 1,0,40,1,25,9 
360 PAUSE 3 
378 END 


RUN the program again to see the added border display. Press the 
RUN/STOP and RESTORE keys to return to the normal screen and 
character set. 

The last demonstration program will create a three-byte graphic, an 
automobile in three parts—back end, middle section, and front end. 
This will be done by redefining the characters X, Y, and Z. Clear com- 
puter memory, enter AUTO 100,10 for automatic line numbering, and 
enter the following program. The Simons’ BASIC commands illustrated 
are shown to the left of the program listing. 


Command : 
Illustrated Program Listing 


19@ PRINT ''CCLEAR]" 

COLOUR 119 COLOUR 8,1 
MEM 128 MEM 
DESIGN 2 130 DESIGN 2,$E900+24«8 
Vo a a nce BB 
TRB 8 ey oe Bees 

169 a. BBBBB . 

178 2BBBBBBBB 

189 @BBBBBBBB 

198 a. BBBBBBB 

200 a. . BBB. 

OE Ri iw UB ta ey ak 
ESIGN 2 228 DESIGN 2,$E906+25%8 

239 OBBBBB . . 

BAG Aes Soe BB aes 

208 Mook). a BBBS 

268 ABBBBBBBB 

279 @BBBBBBBB 

289 @BBBBBBBB 


agoooooo0c8m8.8e} ee 2 oO & 
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Fae Ne a a paca a RE 
SOS Gaiiaia. Ve stents 
ESIGN 2 316 DESIGN 2,$E906+268 
Bie na el a ee 
Soe ea RARE salty 
348 @BBBBBB . . 
@BBBBBBBB 
368 d@BBBBBBBB 
376 @BBBBBB . . 
388 Oi BBGi i. . aioe 
BPO: Qa Bia see Wie 
PRINT AT(18,12)"CCTRL 3)XYZ" 
419 END 


RUN the program to print a sleek, red automobile in the center of 
your screen. Press the RUN/STOP and RESTORE keys to return to the 
normal screen and character set. SAVE this program! We will be add- 
ing “‘scrolling” to it later in the chapter. 

Most graphic characters can easily be drawn on the screen grid, 
thanks to the @ command. Should your graphic pictures get very large, 
however, you will probably have to sketch them first on graph paper. 
Just remember to always use an 8 by 8 grid. 

May your imagination and graphic abilities run wild! And the word 
“run” brings us to our next set of commands. But before continuing, 
SAVE the program in memory. It will be used again with motion 
added. 


rPooHeoeme 20 2 & 
W 
vi 
i] 


Ce | 
S 
—) 
a 


Scrolling Techniques 


Four commands—RIGHT, LEFT, UP and DOWN—enable characters 
to be moved around the screen. This is not like the MOVE command in 
which characters are duplicated on the screen. Using scrolling, the 
characters move with the screen, assuming a new position. 


Command format: 
directionW starting row,starting column,ending column,ending row 


or 
directionB starting row,starting column,ending column,ending row 


Direction is, of course, RIGHT, LEFT, UP or DOWN. The parameter 
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following the direction must be either W or B, with no space between 
the direction and this parameter. W specifies scrolling with “wrap- 
around,” meaning that characters that pass off the screen will reappear 
on the opposite side. B specifies “blanking,” meaning that characters 
that pass off the screen will not reappear. 

The next four parameters can be confusing to use when changing 
direction! The key to understanding how to use these parameters is to 
remember that these parameters designate the screen area to be 
scrolled. They do not designate the location of the character(s) that will 
be moved. Everything that appears on the portion of the screen that is 
specified in this command will be scrolled. The starting row and start- 
ing column are the row and column coordinates of the area that is to be 
scrolled. The ending row and ending column are the row and column 
coordinates designating the end of the area to be scrolled. 

For example: RIGHTB 0,0,20,25 specifies that scrolling to the right 
will begin at row 0, column 6 and end at column 20, row 25. The B fol- 
lowing RIGHT specifies ‘‘blanking” be used, meaning that characters 
disappear, character by character, at the ending coordinates location. 
The ending row and column parameters must specify one row and col- 
umn beyond where you want the scrolling to end. In the above exam- 
ple, scrolling will end at column 19 and row 24. Remember that col- 
umns are numbered @ through 39 and rows 0 through 24. 

The following program will demonstrate scrolling the screen RIGHT 
for the screen area 0,0 through 19,19 using wraparound. Clear com- 
puter memory and enter the following program. If you wish to use auto- 
matic line numbering, enter AUTO 10,10 before entering the program 
lines. The Simons’ BASIC commands illustrated are shown to the left of 
the program listing. 


Command Illustrated Program Listing 
18 PRINT "CCLEAR]" 


AT 20 PRINT AT(G,0)"SCROLLING" 
AT 3@ PRINT AT(G,6)"'THE" 
AT 40 PRINT AT(®,12)""SCREEN" 
AT 50 PRINT AT(O,18)""RIGHT" 
PAUSE 6@ PAUSE 2 
RIGHTW 7@ RIGHTW 8,8,20,20 

88 GOTO 78 


During the program run, when the end of each character string meets 
the end of the scroll area, the last character will disappear. Because 
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wrap-around is being used, the character will reappear, entering at the 
left side of the screen. If you would like to follow the scrolling more 
closely, 


ENTER: 75 FOR I=1 TO 18@:NEXT I 


before running the program. You can vary the upper limit of I to 
change the speed of the scroll, increasing the upper limit for a faster 
scroll or decreasing the upper limit for a slower scroll. Note: This is not 
the time to use the PAUSE command, since even PAUSE 1 slows scroll- 
ing to a one-byte move per second. If you would like to see this ‘‘super 
slomo”’ replace line 75’s FOR NEXT statements with PAUSE 1. 

RUN the program, and press the RUN/STOP key to end the run. 

LIST the program. To end scrolling at the end of the designated 
scrolling area, change the parameter following direction from W to B to 
use ‘‘blanking.” Statement line 70 should now read as follows. 


RIGHTB 9,9,28,20 


RUN the program again. The screen scrolled right until all the char- 
acters disappeared from the screen. Press the RUN/STOP key to end 
the program. 

To scroll left, edit line 76 replacing RIGHTB with LEFTW. No other 
parameters in the scrolling command need to be changed. You are not 
changing the screen area to be scrolled. You are simply changing direc- 
tion! You will also be using wraparound this time, instead of blanking. 
Now change the character string in line 50 to read ‘LEFT’, and RUN 
the program. By scrolling the screen to the left, the characters immedi- 
ately begin exiting the left side of the screen. The characters re-enter at 
column 19, one column less then the ending column specified in the 
scrolling command. If the W is changed to B, blanking will occur and 
the characters will immediately disappear permanently off the left side 
of the screen. If you haven’t done so already, press the RUN/STOP key 
to end the program. If you entered line 75 and are impatient with the 
slow scrolling, remove it before continuing. 

To change this program to scroll DOWN, line 70 will be edited again. 
Two parameters must be changed—direction and ending row. If the 
ending row parameter is not changed, the characters will leave the 
screen at row 19. Changing this parameter to 25 will scroll all screen 
rows—O through 24. (Remember—this parameter must be the ending 
row desired, plus 1.) Line 70 will now read as follows. 


DOWNW 8,8,28,25 
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Of course you can also change the character string in line 50 to 
“DOWN”. 

RUN the program. Since wraparound was used, the characters will 
reappear at the top of the screen after scrolling off the bottom. Press the 
RUN/STOFP key to end the program. 

The last change will be to scroll the screen area UP. Since we are 
scrolling the same screen area, the only change needed is to change the 
direction from DOWN to UP. All other parameters remain the same. 
Edit line 70 (and line 50, if you wish) and RUN the program again. 
Press the RUN/STOP key to end the program. 

The scrolling commands may also be combined to scroll different 
areas of the screen in different directions. The following program dem- 
onstrates this by scrolling the top half of the screen RIGHT and the bot- 
tom half of the screen LEFT, with the screen characters printed on a 
diagonal. Clear computer memory and enter the following program. 
You may use AUTO 16,10 for automatic line numbering with this pro- 
gram. The Simons’ BASIC commands illustrated are shown to the left 
of the program listing. 


Command Illustrated Program Listing 
16 PRINT "CCLEAR]" 


AT 28 FOR I=1 TO 206:PRINT 
ATCI+1,1)"$"2NEXT I 

PAUSE 36 PAUSE 3 

RIGHTW and LEFTW 49 RIGHTW 8,0,46,11:LEFTW 
11,0,40,11 
58 GOTO 48 


If you would like to slow the scrolling, add the following statement 
- before running the program. 


45 FOR I=1 TO 65:NEXT I 


RUN the program and press the RUN/STOP key to end. 

To have the top half of the screen scroll UP and the bottom half scroll 
DOWN, change RIGHTW to DOWNB and LEFTW to UPB in line 40. 
This will also change the wraparound to blanking. RUN the program 
again, and press the RUN/STOP key to end. 

Now you should be an expert on scrolling the screen. Scrolling can be 
used in many programming situations. One of the most frequent uses, 
however, will probably be in game programs using user-defined charac- 
ters. So our last program will use scrolling to drive an automobile. 
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LOAD the program containing the DESIGN 2 red auto, page 126, which 
you saved before beginning Scrolling Techniques. LIST the program 
and enter the following program lines. Statement line 400 is changed to 
begin near the left side of the screen, rather than in the middle. You 
may use AUTO 400,10 for automatic line numbering. The Simons’ 
BASIC commands illustrated are shown to the left of the program state- 
ments in which they occur. 


Command 

Illustrated |§ Program Statements 

AT 468 PRINT AT(18,19)"CCTRL 31XYZ" 

PAUSE 41@ PAUSE 1 

AT 428 PRINT AT(2,3)"([CTRL 3]GOING 
FORWARD!"' 

RIGHTB 438 FOR I=1 TO 20:RIGHTB 
§,8,36,20:NEXT I 

PAUSE 448 PAUSE 2 


AT and PAUSE 458 PRINT AT(22,3)"(CTRL 3] IN 
REVERSE! (SPACE 3]"':PAUSE 1 


LEFTB 468 FOR I=1 TO 20:LEFTB 9,8,40,20:NEXT 
I 

PAUSE 47® PAUSE 3 
488 END 


By including the scrolling statements in FOR NEXT loops, you are able 
to control the length of the scroll and retain the characters on the 
screen. 

RUN the program and press the RUN/STOP and RESTORE keys to 
return to the normal screen. 

You can also scroll only the row on which the car appears by chang- 
ing both the first and last parameters—starting row and ending row—to 
10 in each of the scrolling statements. This is important when you don’t 
want the entire screen background to scroll, but only specific rows on 
which certain characters appear. 

I’m sure you noticed the distortion of the leading character during 
the scrolling. This distortion can be avoided by using a delay loop to 
control scrolling speed. 

For a demonstration of both of the above techniques, replace lines 430 
and 460 as shown below. 


430 FOR I=1 TO 26:RIGHTB 18,8,36,19:FOR J=1 TO 108: 
NEXT J:NEXT I 
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468 FOR I=1 TO 26:LEFTB 10,89,40,19:FOR J=1 TO 108: 
NEXT J:NEXT I 


By changing the starting and ending row parameters of both scroll 
statements to the row on which the car is printed, only that row will 
scroll. The text will remain where it was originally printed. Adding the 
delay loop (J) as an inside loop gives you control of the car’s speed. You 
can experiment with various upper limits for the J loop to achieve the 
rate of speed desired, with the amount of distortion that you can toler- 
ate. You can also use PAUSE 1 in place of the J loop. However, you will 
be trading distortion for a very slow ride with some bouncing! 

Remember that scrolling can only be used on a low-resolution screen. 

I hope that you have enjoyed and will find many programming uses 
for both scrolling and user-defined characters. 


High-Resolution 
Graphics 


Introduction 


Simons’ BASIC uses two screen modes, the low-resolution mode and 
the graphics mode. You are familiar with the low-resolution mode 
whose screen mapping is 40 columns (0 through 39) by 25 rows (0 
through 24), with each character cell (byte) consisting of 8 by 8 pixels 
(bits) allowing two colors—foreground color and background color. 
Only the low resolution mode has been used in the previous chapters. 


Graphics Screens 


The graphics mode has two screen types—high resolution and multi- 
color. Both screen types use the graphics commands reviewed in this 
chapter. The differences between these two screen types are summa- 
rized below. 

In this section you will be using the high resolution screen. As the 
name indicates, this screen type provides the highest screen resolution 
possible on the Commodore 64, allowing you control over each pixel 
(short for picture element) on the screen—200 rows of 320 pixels each. 
Colors are handled in exactly the same way as on the low-resolution 
screen, with each character cell (byte) allowing only two colors—fore- 
ground and background. This screen type should be used when fine- 
ness of detail and smoothness of line is most important. 

The multicolor screen uses the same graphic commands that the 
high-resolution screen uses. The difference is in the presentation on the 
screen because of the lower resolution—200 rows of 160 pixels. This is 
only half of the horizontal resolution available on the high-resolution 
screen. However, with multicolor you have three foreground colors 
available for each character cell (byte). This is the screen type to use 
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when multiple colors and the mixing of color is most important. This 
screen type sacrifices the higher resolution for the increased use of 
color. The multicolor screen, and the difference in the screen presenta- 
tion of each of the graphic commands, is reviewed in Section VI. 


High-Resolution Screen 


The Simons’ BASIC high resolution screen configuration multiplies 
the low resolution addressable screen locations by eight, addressing 
each bit! As you know, in low-resolution (the normal Commodore 
screen) each character cell uses a one-byte screen location, with each 
byte consisting of 8 by 8 bits. The screen is 40 bytes wide (columns) and 
20 bytes deep (rows). Thus the high-resolution screen, by addressing 
each bit, is mapped as 320 columns (40*8), and 200 rows (25*8). This 
permits addressing at the smallest addressable point on the screen, 
called bit-mapped addressing. Each graphics bit is called a “pixel”, 
short for picture element. The important difference between the low- 
resolution and high-resolution screen is simply multiples of eight. The 
old screen addresses that you have been using with Commodore BASIC 
and Simons’ low-resolution commands are multiplied by eight for the 
high-resolution screen. If you have been using Commodore BASIC 
graphics, employing PEEK, POKE, AND, OR, and NOT, all of these 
terms are familiar to you. What will be unfamiliar to you is the ease of 
creating Simons’ BASIC screen graphics. The screen layout form 
below, Figure S5.1, shows both low-resolution and high-resolution 
screen mapping, providing a comparison of the two screen types. The 
change to a high-resolution screen configuration will not be confusing 
if you simply think of the screen locations in the terms you already 
know—low-resolution—and multiply by eight for the locations on a 
high resolution screen. This will give you both the column and row 
equivalents. 

As you can see from the screen layout (S5.1), the center of a high res- 
olution screen is 160,100—column 160, row 160. Column and row are 
referred to as the x, y coordinates in all Simons’ BASIC graphic com- 
mands. The x coordinate is the column location, and the y coordinate is 
the row location. Remember, you now have 320 columns and 200 rows, 
or, in other words, a matrix or grid 320 by 200 pixels. 

All of the commands reviewed in this chapter are graphic commands, 
and, therefore, are used on both the high-resolution and multicolor 
screens. Once you have learned to use these commands on a high-reso- 
lution screen, you will also understand how to use them on the multi- 
color screen. 
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COLUMNS 
High Resolution 0 80 120 160 319 
Low Resolution 20 30 39 
o—o 
40 —* 
R 
6 65.10 
Ww 
S 120-——"5 
160 — 20 


ee 
199.0 24.2 ee 


High Resolution Low Resolution 


Figure $5.1: Screen Layout with Column Coordinates (Showing both high- 
resolution and low-resolution screen locations.) 


The following is a brief overview, by chapter, of the Simons’ BASIC 
graphic commands. 


Chapter 15 


HIRES is the command that initiates the bit-mapped, high-resolution 
screen. It also sets both the foreground and background screen colors. 

REC is the command used to plot—‘‘draw”—rectangles and squares 
of any size at any screen location. 

TEXT is the graphic command that replaces the low-resolution 
PRINT command, allowing the user to print character strings on a 
graphic screen. Characters can be printed in both upper and lower 
case, in varying heights, and with varying spacing between characters. 

CHAR prints a single character on a graphics screen, using the Com- 
modore poke code. It also allows varied character height. 

LOW COL allows the user to change foreground color(s) used on por- 
tions of a graphic screen. 

HI COL returns the foreground color(s) used to the original color(s) 
specified. 

LINE plots a line on a graphics screen at any screen location the user 
specifies. 
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CIRCLE plots circular and elliptical shapes at any user-specified 
screen location. 

ARC draws a portion of the circumference of a circular shape at a 
user-specified location. 

ANGLE draws the radius of a circle at a user-specified location. 

PLOT fills—“‘turns on’’—one pixel at a specified location. 

TEST returns the status—‘‘on’” or ‘‘off’’—of a user-specified screen 
location of one pixel. 

NRM returns the Commodore 64 from a graphic screen back to the 
low-resolution screen type. 


Chapter 16 


PAINT fills any enclosed area—plotted shape—with a foreground 
color. 

BLOCK plots a rectangle or square and fills it with a foreground 
color. 

DRAW allows the user to create a graphic design, pixel by pixel, to be 
displayed at a specific screen location. 

ROT, short for rotate, allows a shape created with the DRAW com- 
mand to be displayed at specified angles of rotation in a user-specified 
size. 


Chapter 17 


CSET, using the parameter 2, re-displays the previous graphic screen. 
COPY produces a hard copy of a graphic screen on a serial printer. 


Key to Entering Program Listings 


There are no additional key conventions used in this section. 


Plotting 
Graphics 


HIRES 


This command sets the screen into high-resolution mode, a matrix of 
320 by 200 pixels, where all points are plotted pixel by pixel. This com- 
mand must be used with both graphic screens. For a high-resolution 
screen, it also sets the plotting and screen background colors. This 
command’s function with a multicolor screen is described in Section VI. 


Command format: 


HIRES plotting color,background color 


High-resolution mode allows two colors—one for plotting and one for 
screen background. The plotting color is the foreground color, the color 
in which the high-resolution graphics will be displayed. The back- 
ground color specifies the screen color. The Commodore colors and 
their numbers are shown on page 108, Figure 13.1. 


REC 


This command draws a rectangular shape on a graphics screen. The 
size and the shape of the rectangle are specified in the command 
parameters. 


Command format: 


REC x,y,width,depth, plot type 
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All five parameters are required. Omitting any parameter will cause a 
SYNTAX ERROR. The parameters x and y are the coordinates of the 
starting location for plotting. These coordinates are used in all plotting 
commands. In the REC command, the x,y coordinates specify the 
upper left-hand corner of the rectangle. The parameter x designates the 
starting column, and the parameter y the starting row. Width specifies 
the total number of columns the rectangle will cover, that is, the length 
of the horizontal {top and bottom) edges. Depth specifies the total num- 
ber of rows that the rectangle will cover—length of the vertical edges 
(sides). The last parameter, plot type, is used with all plotting com- 
mands. The three plot types for a high-resolution screen are shown 
below in Figure 15.1. 


Plot Type Function 


) Turns off plotting, (clears what has been plotted, or 
leaves cleared what has not been plotted). 

1 Turns on plotting. 

2 Reverses plot types @ and 1. If plotting was on, plotting is 
cleared (turned off). If plotting was off, plotting is turned 
on. 

Figure 15.1 


Plotting cannot exceed screen size. The beginning column plus the 
width (x+width) cannot exceed 320, and the beginning row plus the 
depth (y+depth) cannot exceed 200. If either exceeds these limits, the 
program will crash with a BAD MODE error message. This is the mes- 
sage given when a command parameter is outside the range allowed. 

The first demonstration program will plot a yellow rectangle located 
in the center of a dark grey screen having a black border. The first 
parameter of the COLOUR statement sets the border color (6), and the 
HIRES statement sets both the plotting color (7) and the screen back- 
ground color (11). Clear computer memory and enter the following pro- 
gram. The Simons’ BASIC commands illustrated are shown to the left 
of the program listing. 


Command Illustrated Program Listing 


COLOUR 18 COLOUR 8,11 
HIRES 20 HIRES 7,11 
REC (plot type 1) 36 REC 120,88,80,40,1 


46 GOTO 48 
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RUN the program, and hold down the RUN/STOP key to end the run. 
The rectangle that was drawn on your screen is shown below in Figure 
Oa 


COLUMNS 
D4 = 
High Resolution 


Low Resolution 


nson 
ek 


High Resolution Low Resolution 


Figure 15.2: Drawing of above rectangle on a high-resolution screen. 


Of course, it’s unnecessary to first draw this rectangle on graph 
paper. Knowing that 160,100 are the center x,y coordinates of a high- 
resolution screen gives us all the information we need to position the 
rectangle in the center of the screen. All that is needed is to place half 
the rectangle on either side of these coordinates, for example, 160 
minus half the length of the top edge (160—40=120), and 100 minus 
half the length of the side edge (100—20=86). Just remember that the x 
and y coordinates designate the column and row respectively where 
plotting will begin. 

The COLOUR statement is needed only if you want to change the 
standard border color. When using the high-resolution mode, the sec- 
ond parameter of the COLOUR statement—screen color—should be the 
same as the screen background color specified in the HIRES statement, 
or the same as the current text screen background color. If a different 
color is specified, the COLOUR statement will cause the screen to 
briefly flash that color, then change to the color specified in HIRES 
when that statement is performed. 

To eliminate the screen border entirely, use the same border and 
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screen color. To do this in the program in memory, change statement 
line 10 to: COLOUR 11,11. RUN the program again and press RUN/ 
STOP to end. 

In the REC statement used in this program, the plot type parameter is 
1, which turns on plotting. To demonstrate plot type @—clearing the 
screen of a plotted graphic—add the following statements to the pro- 
gram in memory. The Simons’ BASIC commands illustrated are shown 
to the left of the statements in which they occur. 


Command Illustrated Program Statements 


PAUSE 46 PAUSE 2 
REC (plot type 9) 5@ REC 128,80,80,48,0 
PAUSE 6@ PAUSE 1 

76 GOTO 38 


These statements will cause the program to pause for two seconds 
after plotting the rectangle, then clear the rectangle using plot type 0. 
By ending the program with a GOTO statement, the program will 
repeat—turning the plotted rectangle on and then off—causing the rec- 
tangle to appear to be flashing. 

RUN the program. You now see the yellow rectangle turning on and 
off, with a pause of two seconds on and one second off. Hold down the 
RUNI/STOP key to end the program. 

Now add the following statements to demonstrate reverse plot type, 
type 2. The Simons’ BASIC commands illustrated are shown to the left 
of the statement in which they occur. 


Command Illustrated Program Statements 


REC (plot type 2) 7@ REC 120,88,88,40,2 
PAUSE 8@ PAUSE 3 
96 GOTO 78 


After being plotted (plot type 1) and turned off (plot type @), the rec- 
tangle will be alternately turned back on, then off, by repeating line 70 
which specifies plot type 2. 

RUN the program. To end the program and return to the normal 
screen colors, press the RUN/STOP and RESTORE keys. 


Plotting a Square 


The REC command can also be used to plot a square. You will proba- 
bly assume that this can be done easily by using the same number for 
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both the width and depth parameters, for example: a square of 30 col- 
umns by 30 rows. But, because your video screen is rectangular rather 
than square, an adjustment must be made for the ratio of screen width 
to screen depth. Television screens and monitors have a ratio of 
approximately 1.375, width to depth. On a high-resolution screen the 
ratio of 1.4 will be used to adjust the horizontal lines (top and bottom 
edges)—the width parameter of the REC command—to form a square. 
To demonstrate this, the following statements will plot two squares, 
one in the upper left-hand corner and one in the upper right-hand cor- 
ner of the screen. These statements will replace the statements used for 
“blinking” the rectangle. The Simons’ BASIC commands illustrated are 
shown to the left of the statement in which they occur. 


Command Illustrated Program Statements 


REC (plot a square) 40 REC 0,0,30*1.4,38,1 
REC (plot a square) 58 REC 278,0,30x1.4,38,1 
6@ GOTO 69 


RUN the program. The screen shows a rectangle plotted in the center 
of the screen, and two squares—one at each corner of the top of the 
screen. The plotting color is yellow (7), and the screen background and 
border are dark grey (11). Press the RUN/STOP key to end the program. 

In plotting a square to end at the right edge of the screen, care must 
be taken not to exceed screen width (320 columns). Remember, the 
width specified is multiplied by 1.4. In line 50, the width specified is 42 
columns (30*1.4). This means that the last column in which plotting 
can begin is column 278 (320-42). 

To add a large square surrounding the rectangle and turn the inner 
rectangle off, edit the following statement lines in the program in 
memory. 


ENTER: 68 REC 569,30,1580*1.4,1508,1 
7@ PAUSE 2:REC 128,88,88,40,0 
88 GOTO 88 


RUN the program, and press the RUN/STOFP key to end. 

If plot type 2—reverse plot type—were used in line 70, rather than 0, 
the effect would be different. The four corner pixels of the rectangle 
would be left on. To see this effect, change plot type from 6 to 2 in line 
70, and RUN the program again. Only ending the program will remove 
these four turned-on pixels! 

Now you can use squares as well as rectangles on your charts or 
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graphs, or in your educational or game programs. Of course, you'll also 
want to add text, either within the square or rectangle or on another 
part of the graphic screen. 


TEXT 


The TEXT command allows you to print character strings on a 
graphic screen. This replaces the PRINT statement used on a low- 
reslution screen. If a PRINT statement is used with a graphics screen, 
the print characters will not appear on the screen. (Printing occurs on 
the low-resolution screen in memory, rather than on the HIRES 
screen.) The characters specified in the TEXT statement can be dis- 
played in upper or lower case, or both, and character height and spac- 
ing can be increased. All TEXT will be printed in the plotting color 
specified in the HIRES command. 


Command format for upper case text: 
TEXT x,y,‘‘[CTRL A]character string’’,plot type,height, 
spacing 


Command format for lower case text: 
TEXT x,y,“[CTRL B]character string’’,plot type,height, 
spacing 


CTRL A is used to specify upper case, while CTRL B is used to spec- 
ify lower case. When using only upper case this parameter may be 
omitted, since upper case is the default. All other parameters are 
required, and if omitted will cause a SYNTAX ERROR. The coordi- 
nates x,y are the column and row screen locations where the text will 
begin. Unlike the PRINT statement, wraparound is not possible. Text is 
confined to the row specified. At column 320, plotting of the TEXT 
string will end whether the entire character string has been printed or 
not. No error message is given if the character string exceeds the space 
available on the row specified. When plotting more than one line of 
characters, a TEXT statement must be used for each line, with each 
row having a location (y) of 8 pixels greater than the last for single spac- 
ing of the text. Plot type is the same for all plotting commands. 
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Height is specified by using multiples of the normal character size of 
eight pixels. The value 1 indicates normal size—a height of eight pixels. 
(Note: The value @ produces the same result as the value 1.) A value of 2 
indicates 2+*8, or 16 pixels in height; a value of 3 produces characters 3* 
8, or 24 pixels in height, and so on. Height is limited only by the appear- 
ance of the characters desired. CHARACTER WIDTH CANNOT BE 
VARIED. With the width remaining unchanged, the height simply 
“stretches” the characters. It’s a question of how “thin” you want your 
characters to be! Using the parameter 8 produces very thin characters 
64 pixels in height. 

The spacing parameter determines the number of pixels to be turned 
off (left blank with only the background color showing) between each 
character. For normal spacing, this parameter is 8—seven pixels 
between the end of one character to the start of the next character. 
Again, multiples of eight are used for additional spacing, with the 
parameter 16 producing double spacing, the parameter 24 producing 
triple spacing, and so on. Any value between @ and 255 is valid. How- 
ever, values between 0 and 8 cause a tightening of the text, with the val- 
ues of @ through 4 producing illegible text! So, if your text isn’t reada- 
ble, check the value being used for the spacing parameter. A value of 
256 or greater will cause an ILLEGAL QUANTITY ERROR. 

Figure 15.3 below gives a summary of the values of the height and 
spacing parameters. 


Character Height Character Spacing 
Value Function Value+ Function 

1 Normal size 8 Normal spacing 
2 2*normal size 16 Double spacing 
3 3*normal size 24 Triple spacing 
4 4*normal size 32 4*normal spacing 
5 5*normal size 40 5*normal spacing 
6 6*normal size 48 6*normal spacing 
7 7*normal size 56 7*normal spacing 
8 8*normal size 64 8*normal spacing 
9 and above—illegible text 255 is the last legal value 


*—Any value between these multiples may also be used. 


Figure 15.3 
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Clear computer memory and enter the following program for a dem- 
onstration of using text on a high-resolution screen. You may use 
AUTO 10,10 for automatic line numbering. The Simons’ BASIC com- 
mands illustrated are shown to the left of the program listing. 


Command 

Illustrated Program Listing 

COLOUR 18 COLOUR 2,14 

HIRES 26 HIRES 0,14 

TEXT 36 TEXT 115,55,"CCTRL AJCOMMODORE",1,2,8 
TEXT 46 TEXT 149,75,""(CCTRL Al164",1,2,8 

REC 58 REC 69,15,200,119,1 


68 GOTO 68 


This program will produce a 200 pixel by 110 pixel rectangle begin- 
ning at the screen location 60,15, with the character strings COMMO- 
DORE and 64 printed inside the rectangle 16 pixels in height and 
single-spaced. The border color (red) is set in the COLOUR statement, 
the screen background color (blue) in both the COLOUR and HIRES 
statements, and the plotting color (black) in the HIRES statement. The 
screen locations for the three plotting statements are shown plotted on 
graph paper in Figure 15.4 below. 
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Figure 15.4: Grid showing the strings COMMODORE and 64 in a rectangle. 
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RUN the program and press the RUN/STOP key to end. 

The TEXT statements precede the REC statement in this program, 
but they do not need to. Plotting statements, text or graphic, may 
appear in any order. The upper-case parameter used in the TEXT state- 
ments could have been omitted, since upper case is the default. The 
case parameter (CTRL A or B) may also be omitted when printing num- 
bers, or either upper case or lower case may be specified. To demon- 
strate this, add the following statements to the program in memory. 


35 TEXT 115,48,'"'COMMODORE",1,2,8 
45 TEXT 148,90,"CCTRL B) 64'',1,2,8 
55 TEXT 148,195,''64",1,2,8 


RUN the program. COMMODORE printed the same with and with- 
out the upper case parameter; and 64 printed the same with the upper- 
case parameter, the lowercase parameter, and without the parameter. 
Press the RUN/STOP key to end the program. 

However, since you must use both the upper and lower case parame- 
ters when using mixed text—upper- and lowercase in the same charac- 
ter string—it is probably a good habit to regularly include this parame- 
ter. Remove statement lines 35, 45, and 55, and LIST the program. For 
a demonstration of mixed text, add the following program statements. 


66 TEXT 10,158,"(CTRL AJUCCTRL BISING [CTRL A]S 
CCTRL BJIMONS' [CTRL A] BASIC",1,4,16 
76 GOTO 78 


This text will print below the rectangle, beginning at column 10, row 
150, as shown in Figure 15.5. The text will print in upper and lower 
case, using initial caps for the words Using and Simons’ and full caps 
for the word BASIC. The height of the characters will be 4 times nor- 
mal height (32 pixels) and the characters will be double spaced. 

RUN the program, noting the effects of the height and spacing param- 
eters used in the last TEXT statement. Press the RUN/STOP key to end 
the program. 

Both the TEXT command and another Simons’ BASIC plotting com- 
mand, CHAR, can be used to print a single character on a graphics 
screen. 


CHAR 


This command is more cumbersome to use than the TEXT command 
because the poke code for the character must be used, instead of a char- 
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Figure 15.5: Grid showing locations of COMMODORE 64 in a rectangle and 
the words Using Simons’ BASIC 


acter string. The Commodore poke codes are shown in Appendix E, 


pages 132-134, of the Commodore 64 User’s Guide that came with your 
Commodore 64 computer. 


Command format: 


CHAR x,y,poke code,plot type,height 


Both commands—CHAR and TEXT—produce the same result, as 
shown in the next extension of the current program. As with all plot- 
ting commands, the character specified in this command will be 
printed in the plotting color designated in the HIRES statement. The 
Simons’ BASIC commands illustrated are shown to the left of the pro- 
gram listing. 


ENTER the following program statements. 


Command Illustrated Program Statements 


HIRES 11 HIRES 8,14 
REC 12 REC 0,0,30%1.4,39,1 
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CHAR 13 CHAR 15,8,3,1,2 

REC 14 REC 278,86,30*1.4,36,1 

TEXT 15) TEXT 267,690 12,8 
20 


The CHAR and TEXT commands (lines 13 and 15) will perform the 
same function in this program—each printing the character C. 

The CHAR command uses the poke code for the character (3) while 
the TEXT command uses a character string (“‘C’’). Note that the spacing 
parameter must be used in the TEXT command, even though it will not 
be used when plotting a single character. Failure to use this parameter 
will cause a SYNTAX ERROR. The HIRES command (line 11), which 
initiates the high-resolution screen and sets the plotting and_back- 
ground colors, must precede the plotting commands (CHAR, REC, and 
TEXT). Line 20 must be removed to prevent the program from initiat- 
ing a new high-resolution screen. The new screen would, of course, 
remove the plotting performed in statement lines 12 through 15. 

RUN the program. After viewing the graphic, press the RUN/STOP 
key to end the program. This graphics screen is shown below in Figure 
15.6; 
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Figure 15.6: Same as Fig. 15.5 with squares containing C added. 
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Now we'll add the command that enables us to use additional colors 
in a screen graphic. 


LOW COL 


This command can be used both to change the plotting color origi- 
nally specified in the HIRES command and to add a plotting back- 
ground color. Because this command is also used to change the three 
plotting colors on a multicolor screen, it carries three parameters. 
Although the third parameter has no effect in high-resolution graphics, 
it must be specified using an arbitrary color number. If it is omitted, it 
will cause a SYNTAX ERROR. 


Command format: 


LOW COL color1,color2,color3 


In high-resolution mode, colori is the new plotting color (replacing 
the plotting color specified in HIRES) and color2 is the plotting back- 
ground color. The plotting background color is displayed over every 8 
by 8 pixel through which plotting passes. This effects all plotting com- 
mands, both graphic and text. Since the third parameter is ignored 
when using a high-resolution screen, you may use any valid color num- 
ber for the color3 parameter. 

LIST the program in memory, and add the following statement for a 
demonstration of LOW COL. 


ENTER: 28 LOW COL 5,7,9 


After this statement is executed, the plotting color specified in the 
HIRES statement (black) will be replaced by the color green, and the 
background plotting color will be yellow, replacing that portion of the 
blue screen background. 

RUN the program. The plotting statements that were executed prior 
to the LOW COL statement used the plotting color specified in the 
HIRES statement. All statements following the LOW COL statement 
used the new plotting color (green) specified in LOW COL. As you can 
see, the plotting background color added by LOW COL has some inter- 
esting effects! Using a different background color for the plotting than 
is used for the screen background causes different effects on plotted 
shapes, standard size text, and enlarged text. To change the plotting 
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color and not change the plotting background color, simply use the 
screen color specified in the HIRES statement as the color2 parameter 
in LOW COL. In this program, line 20 would be changed to LOW COL 
5,14,0 to do this. You will have to experiment a bit with this parameter 
in order to get the special effects needed in a specific program. 

Press the RUN/STOP key to end the program. 

The LOW COL command may be used any number of times in a pro- 
gram. Adding the following statement will again change the plotting 
and background colors. 


ENTER: 55 LOW COL 1,14,8 


When line 55 is executed plotting will be performed in white and the 
plotting background color and screen color will be the same—light blue. 
RUN the program. After viewing the graphic, press the RUN/STOP 
key to end the program. 
Reverting to the original plotting and background colors specified in 
the HIRES statement is easy with Simon’s BASIC. 


HI COL 


This is the command used to revert to the HIRES colors if LOW COL 
has been used. This command changes both the plotting color and the 
background color back to the plotting and background colors specified 
in the last HIRES statement. HI COL can, of course, be followed by 
another LOW COL command. Note: Using another HIRES statement, 
instead of LOW COL or LOW COL and HI COL, will first clear the 
screen of the previous graphic. This is what makes the LOW COL and 
HI COL commands so important. 


Command format: 


HI COL 


To revert back to the HIRES colors before printing the large rectan- 
gle, add the following statement to the program in memory. 


ENTER: 45 HI COL 


RUN the program. The large rectangle is drawn in black on the 
screen background color. Plotting and plotting background color is 
then changed again by the LOW COL statement in line 55, causing the 
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-character string ‘“Using Simons’ BASIC” to be printed in white. To end 
the program, press the RUN/STOP key. 
On to the next graphic plotting tool. 


LINE 


This command is used for plotting a straight line anywhere on a 
graphics screen. Horizontal and diagonal lines may be drawn either 
from left to right or from right to left, and vertical lines may be drawn 
either downward or upward. 


Command format: 


LINE x,y,x1,y1,plot type 


The x,y coordinates are again the beginning column and row plotting 
location. The parameters x1 and y1 designate the ending coordinates 
for plotting, with x1 designating ending column and y1 designating 
ending row. A negative value for any of these coordinate parameters 
will produce an ILLEGAL QUANTITY ERROR. However, coordinate 
checking for exceeding screen size is minimal! There is no limit 
checking on the x or x1 parameters (column coordinates). For example, 
a value of 1119 or 1900 for either the beginning or ending column loca- 
tion will be accepted, drawing a line from or to the edge of the screen. 
The upper limit accepted for row coordinates is 255. A value of 256 or 
greater will produce an ILLEGAL QUANTITY ERROR. 

Plot type is the same for all graphic commands, as described at the 
beginning of this chapter. 

In the next demonstration program, three rectangles will be plotted, 
located at the upper left, middle, and bottom left of the screen. A diago- 
nal line will then be plotted from location 0,0 through location 319,199, 
which will intersect the top left and bottom right corner of each of the 
three rectangles. The plotting grid for this program is shown following 
the program listing in Figure 15.7. 

Clear computer memory, and enter the following program. Use 
AUTO 10,10 for automatic line numbering. The Simons’ BASIC com- 
mands illustrated are shown to the left of the program listing. 


Command Illustrated Program Listing 
HIRES 10 HIRES 7,11 
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REC 28 REC 8,0,65,46,1 
REC 36 REC 129,88,65,40,1 
REC 48 REC 254,159,65,48,1 
LINE 5@ LINE 9,8,319,199,1 
68 GOTO 68 
COLUMNS 
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Figure 15.7: Grid showing three rectangles and a diagonal line. 


RUN the program and your screen will duplicate the grid shown 
above. Your screen is light grey with a blue border, and the graphics 
are plotted in yellow. Hold down the RUN/STOP key to end the pro- 


gram. 

Plotting a diagonal line between the opposite two corners must begin 
at the bottom left-hand corner and end in the upper right-hand corner. 
The statement needed to do this is shown below. 


ENTER: 55 LINE 8,199,319,8,1 


RUN the program again and press the RUN/STOP key to end. 
To replace this diagonal line with a straight line bisecting the center 
of the middle rectangle, 
ENTER: 55 LINE 9,190,319,100,1 
and RUN the program. Hold down the RUN/STOP key to end the pro- 
gram. 
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To plot a vertical line through the center of the screen, either of the 
following statements can be used. The first statement will plot the line 
beginning at the top of the screen and ending at the bottom, and the 
second statement will plot the line from the bottom of the screen to the 
top. 


ENTER: 55 LINE 160,8,168,200,1 
OR 
55 LINE 168,206,160,8,1 


RUN the program again, using the RUN/STOP key to end the run. 
Our next plotting shape will permit you to create not only circles, but 
interesting elliptical shapes also. 


CIRCLE 


This command is used to plot either a circular or elliptical shape on a 
graphics screen. The size of the shape, whether circular or elliptical, is 
set by the length specified in the horizontal radii (xr) and vertical radii 
(yr) parameters. Care must be taken in specifying the size of the radii so 
that a shape is not created that is larger than the screen size. This will 
cause an ILLEGAL QUANTITY ERROR. 


Command format: 


CIRCLE x,y,xr,yr,plot type 


The first two parameters, x and y, designate the screen coordinates of 
the center of the shape to be plotted. The parameter x is the column 
(horizontal) coordinate, and the parameter y is the row (vertical) coordi- 
nate. The xr and yr parameters designate the horizontal and vertical 
radii, respectively, of the shape to be plotted. Thus their lengths deter- 
mine both the size and shape of the graphic plotted. Plot type is the 
same for all plotting commands. 

In order to plot what appears to be a perfect circle on a rectangular 
screen, the horizontal radii must be adjusted. This scaling factor will 
vary to some degree depending upon the monitor being used. Also, 
exact measurements will not necessarily produce the appearance of a 
perfect circle due to the fact that monitor screens are not a flat surface. 
The exact measurement for my monitor is 1.29, but a scaling factor of 
1.4 produces a more perfect-looking circle! My advice is: choose a scal- 
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ing factor for your use that approximates the “best looking circle” on 
your monitor. For circles on the high-resolution screen, I will use a 
scaling factor of 1.4 throughout this book. That is, the horizontal radii 
will be 1.4 times the length of the vertical radii—horizontal radii= 
vertical radii * 1.4. (Note: When producing a hard copy of a graphics 
screen, however, the radii for a circle must be equal. This is covered in 
the review of the COPY command in Chapter 17.) 

Before using CIRCLE in a program, we will experiment with this 
command in the immediate mode. Either DO NOT clear the program in 
memory or SAVE it. The program will be added to later in this chapter. 

To plot a circle in the center of the screen and hold the graphic on the 
screen for 10 seconds, 


ENTER: HIRES 7,11: YR=40:XR=YR*1.4:CIRCLE 168, 
19@,XR,YR,1:PAUSE 18 


A yellow circle is plotted in the center of a light grey screen. Since we 
did not use the COLOUR command, the border remains blue. The x,y 
coordinates (160,100) designate the center of the HIRES screen as the 
center of the circle. The vertical radii (YR) are 40 pixels in length,’ and 
the horizontal radii (XR) are 40*1.4, or 56, pixels in length. This circle 
is shown below in Figure 15.8, clearly demonstrating the difference in 
circular appearance between a printed circle with that shown on your 
video screen. As was noted above, to print a perfect circle the horizon- 
tal and vertical radii must be equal. The horizontal radii is only 
adjusted for viewing on the rectangular shape of a video screen. Figure 
15.8 also shows both the horizontal radii (XR) and vertical radii (YR) 
used to configure the circle. 

To elongate this circle, creating an ellipse, change the horizontal radii 
to: XR=(YR+YR)*1.4. These commands should now read: 


HIRES 7,11: YR=48:XR=(YR+YR)*1.4:CIRCLE 1680,190,XR, 
YR,1:PAUSE 18 


The horizontal radii are now 112 pixels—(40+40)*1.4—radiating from 
the center to the left and the right for a total of 224 horizontal pixels. 
The vertical radii remain 40 pixels each. 

RE-ENTER the commands for a demonstration of an elliptical shape. 

This ellipse is shown below in Figure 15.9. Again, both the horizontal 
and vertical radii are shown to demonstrate how the shape was drawn. 
And again the shape will appear wider on the graph than on your video 
screen. 

Now a circle will be added to surround the middle rectangle of the 
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Figure 15.9: Grid showing an ellipse in the center. 
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graphics program in memory. In case you cleared memory and didn’t 
SAVE the program, it is shown below for re-entry. 

18 HIRES 7,11 

20 REC 8,8,65,46,1 

3@ REC 129,80,65,40,1 

40 REC 254,159,65,48,1 

50 LINE 8,8,319,199,1 

55 LINE 169,0,168,209,1 ‘ 

68 GOTO 68 


If the program is still in memory, LIST the program. 
ENTER: 55 YR=40:XR=YR*1.4:CIRCLE 168,108,XR,YR,1 


RUN the program. A yellow circle is plotted around the middle rec- 
tangle. Press the RUN/STOP key to end the program. 
To plot only a portion of a circle, the ARC command is used. 


ARC 


This command plots a user-specified portion of a circular shape. 


Command format: 


ARC x,y,sa,ea,i,xr,yr,plot type 


There are only three new parameters in this command: sa, ea, and i. 
The parameters x, y, xr, and yr are the same parameters used in the 
CIRCLE command. Plot type is the same parameter used in all plotting 
commands. Again, the x and y parameters are the screen coordinates 
for the center of the circular shape from which the arc will be drawn. 
The parameters xr and yr specify the horizontal and vertical radii of the 
circular shape of which the arc is a part. The circular shape itself need 
not be plotted, of course, but must be imagined and the center and radii 
specified in order to give the screen locations necessary for ARC plot- 
ting. The parameter sa specifies the starting degree of angle, and the 
parameter ea specifies the ending degree of angle. The parameter i 
specifies plotting as continuous, or as increments in degrees between 
each point on the arc. A value of 1 plots a solid arc. A value greater 
than 1 causes plotting to occur at intervals of the value. Specifying a 
degree of angle for parameter i enables a number of additional geomet- 
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ric shapes to be drawn. This will be demonstrated at the end of the 
ARC review. 

Figure 15.10 shows how the parameters for this command are deter- 
mined. The circle from which the arc will be taken is shown as a dotted 
line, while the arc is shown as a solid line. The degrees of the circum- 
ference of the circle are marked at 90 degree intervals. Figure 15.10 also 
shows both the horizontal radii (XR) and vertical radii (YR) used to con- 
figure the circle. Again, the arc will appear wider on the graph than on 
your video screen due to the adjustment made for the rectangular 
screen. 


HIGH RESOLUTION COLUMNS 
SCREEN 


280 319 


zon 


Figure 15.10: Grid showing an arc as part of a circle. 


ENTER the following statements to plot both the circle and the arc 
shown in Figure 15.10. These statements will be added to the front of 
the program in memory. The Simons’ BASIC commands illustrated are 
shown to the left of the program statements. 


Command 
Illustrated Program Statements 


HIRES 1 HIRES 7,11 
CIRCLE 2 YR=49:XR=YR*1.4:CIRCLE 168,100,XR,YR,1 
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PAUSE 3 PAUSE 3 

LOW COL 4 LOW COL 8,11,8 

ARC 5 ARC 166,198,8,188,1,XR,YR,1 
6 GOTO 6 


The program will first plot a circle in yellow in the center of the 
screen, then pause for three seconds. Next, the plotting color will be 
changed to orange in the LOW COL statement. Then the arc will be 
drawn, in orange, over the right side of the circle. 

RUN the program, using the RUN/STOP key to end. 

Add the following statements to again pause for three seconds, then 
plot a second arc in blue to cover the left side of the circle. 


Command 

Illustrated Program Statements 

PAUSE 6 PAUSE 3:LOW COL 6,11, 

ARC 7 ARC 168,199,188,360,1,XR,YR,1 


8 GOTO 8 


RUN the program, using the RUN/STOP key to end. Do not clear 
computer memory. 

Using the immediate mode, the following commands will plot an 
arc—270 degrees through 90 degrees—of a circle configured: center of 
circle, x=80, y=40; horizontal radii of xr=20*1.4; vertical radii of 
yr=20. Only the arc, which is the top half of the circle, will be plotted. 


ENTER: HIRES 7,11:ARC 880,48,270,90,1,20%1.4, 
20,1:PAUSE 5 


Remove statement lines 1 through 8, and continue with the previous 
program. LIST the program. Adding the following statement lines will 
plot two arcs, one on each side of the circle plotted in line 55. Each arc 
will be located 40 pixels beyond the circle, one on each side. The 
Simons’ BASIC commands illustrated are shown to the right of the 
statement in which they occur. 


Command 

Illustrated Program Statement 

ARC 66 ARC 160,198,59,130,1,65*1.4,65,1 
ARC 78 ARC 168,198,239,318,1,65*1.4,65,1 


88 GOTO 88 
RUN the program, using the RUN/STOP key to end. LIST the pro- 
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gram. To remove the distracting diagonal line from all but the two cor- 
ner rectangles, replace statement line 50 as follows. 


ENTER: 58 LINE 9,0,65,46,1:LINE 255,159,319, 
199,17 


RUN the program, press the RUN/STOP key to end, and LIST the 
program again. 

So far, you have used the number 1 as the parameter for plotting 
interval (i). When the number 1 is used, there is no interruption in the 
line of the arc that is plotted, that is, each pixel from the specified start- 
ing to ending location is plotted. When a greater number is used for this 
parameter, plotting will occur at that interval, separating the dots plot- 
ted. This will have the effect of causing the ‘“‘jaggies’”, by limiting the 
effect of the high resolution. The ‘‘jaggies” are distortions caused by the 
lower resolution, having a staircase-like effect on lines that would be 
smooth if the number 1 were used as the plotting interval. To see this 
effect on the arc to the left of the circle, change the ARC parameter i 
(the fifth parameter) to 16 in line 70. You may not want to use jagged 
lines often, but this parameter has another use. 

Using a degree of angle for the plotting interval causes plotting to 
occur in a straight line from the starting angle location to the starting 
angle location plus the plotting interval—sa to sat+i. In other words, the 
plotting interval—parameter i—becomes an intermediate plotting point 
in the arc. In this program, changing the parameter i in the first arc 
(line 60) to 40 will cause plotting to occur in a straight line from 50 
degrees to 90 degrees (50+40), and from 90 degrees to 130 degrees (90 
+40). Likewise, in the second arc (line 76) plotting will occur in a 
straight line from 230 degrees to 270 degrees (230+40), and from 270 
degrees to 310 degrees (270+46). Edit lines 6@ and 70, replacing the 
value of i (now 1) with 40. The two statement lines should read as 
follows: 


68 ARC 168,198,58,138,40,65*1.4,65,1 
78 ARC 168,198,238,310,40,65*1.4,65,1 


RUN the program. By using a 40 degree angle for the plotting inter- 
val, both arcs were changed to a flattened version of the < and > sym- 
bols. Press the RUN/STOP key to end. This was a small example to 
demonstrate the difference that the plotting interval parameter can 
make. It can, of course, do much more! 

The following program will use ARC to plot five polygons: (1) a quad- 
rilateral (four-sided figure) on the upper left side of the screen, (2) a 
pentagon (five-sided figure) on the upper right side of the screen, (3) a 
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hexagon (six-sided figure) in the center of the screen, (4) an octagon 
(eight-sided figure) on the lower left side of the screen, and (5) a deca- 
gon (ten-sided figure) on the lower right side of the screen. 

Clear computer memory and enter the following program. You may 
use AUTO 10,10 for automatic line numbering. The Simons’ BASIC 
commands illustrated are shown to the left of the program listing. 


Command 

Illustrated Program Listing 

HIRES 10 HIRES 14,11:Y=48:X=Yx1.4 

ARC 28 ARC 60,45,0,368,360/4,X,Y,1 
ARC 38 ARC 255,45,0,360,368/5,X,Y,1 
ARC 46 ARC 168,190,0,360,360/6,X,Y,1 
ARC 58 ARC 68,155,0,360,360/8,X,Y,1 
ARC 68 ARC 255,155,80,360,360/18,X,Y,1 


76 GOTO 78 


RUN the program and press the RUN/STOP key to end. 

Now that you have seen how versatile this command is, you can use 
your imagination to create any number of shapes. This is especially 
useful for creating entertainment or educational software. How about 
writing a review program for geometry? It might also be useful for cre- 
ating a special logo for a club or business association. 


ANGL 


This command draws the radius of a circle without having to display 
its circumference. Of course, any number of radii may be plotted and 
used in as many ways as your imagination can conceive. This is clearly 
shown in your Simons’ BASIC User Guide. 


Command format: 


ANGL x,y,angle,xr,yr,plot type 


The parameters x, y, xr, yr, and plot type are the same as described 
for the ARC command. Angle specifies the point on the circumference 
at which the radius will terminate. It is specified as a number of 
degrees of the circumference, that is, any number from 0 through 360. 
Using a clock as an example, at three o’clock the hour hand is at 90 
degrees, at six o’clock it is at 180 degrees, and so on. 
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The following program will plot four clocks, one for each of the conti- 
nental United States time zones. The hands of the clocks will be plotted 
by the ANGL command. By shortening the horizontal and vertical radii 
(parameters xr and yr respectively) the hands of the clock end inside 
the circle. For the radii to reach the circumference of the circle, the 
horizontal and vertical radii would have to be the same radii length 
used for CIRCLE—20*1.4 and 20 respectively. The angles needed for 
each hour hand are noted in statement line 30. 

Clear computer memory and enter the following program. You may 
use AUTO 10,10 for automatic line numbering, rather than keying in 
the line numbers yourself. The Simons’ BASIC commands illustrated 
are shown to the left of the program listing. 


Command 

Illustrated Program Listing 

COLOUR 1@ COLOUR 5,11 

HIRES 26 HIRES 7,11:X=1.4 
3@ REM ANGLES FOR THE HOUR HAND AT 
1,2,3, AND 4 O'CLOCK 
49 P=30:M=60:C=99:E=128 

TEXT 50 TEXT 65,39,"C(CTRL AJUCCTRL B] 
NITED CCTRL AJSCCTRL BITATES"',1,2,16 

TEXT 68 TEXT 120,68,"CCTRL AJTCCTRL BJIME 


CCTRL AJZCCTRL BIJONES",1,2,8 

CIRCLE and TEXT 7H CIRCLE 35,110,20*X,20,1:TEXT 19, 
146, "CCTRL AJPCCTRL BJACIFIC",1,1,8 

CIRCLE and TEXT 8@ CIRCLE 118,118,20*X,20,1:TEXT 85, 
149, "CCTRL AJMCCTRL BIJOUNTAIN",1, 
1,8 

CIRCLE and TEXT 98 CIRCLE 195,118,20*X,20,1: TEXT 
178,140, "CCTRL AJCCCTRL BJENTRAL", 
1\.1,8 

CIRCLE and TEXT 10@ CIRCLE 275,118,20*X,28,1:TEXT 
258,148, "CCTRL AJECCTRL BJASTERN", 


1,4,.8 

ANGL 118 ANGL 35,118,368,15*X,15,1:ANGL 
35,119,P,10*X,18,1 

ANGL 128 ANGL 118,119,368,15*X,15,1:ANGL 


118,118,M,10*X,19,1 
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ANGL 138 ANGL 195,118,8,15*X,15,1:ANGL 
195,118,C,10*X,10,1 

ANGL 148 ANGL 275,118,8,15*X,15,1:ANGL 
275,118,E,19*X,19,1 


158 GOTO 158 


When the program is run, the title will be printed, then the clocks 
(circles) will be plotted and labeled, and last the ANGL statements will 
plot the clock hands. Note that either 360 degrees or @ degrees can be 
used as the angle parameter for plotting the perpendicular minute 
hands. The first ANGL statement in lines 110 through 140 sets the angle 
for the perpendicular, minute hand. Lines 110 and 120 use 360 as the 
angle, and lines 130 and 140 use an angle of 0. 

RUN the program and press the RUN/STOP key to end. 


PLOT 


This command displays one dot—one pixel—on a graphics screen in a 
user-specified location. 


Command format: 


PLOT x,y,plot type 


The x and y parameters are, as always, the column and row coordi- 
nates specifying the location for plotting. Plot type is as previously 
described. All three parameters are required. This might seem like a 
very weak command after reviewing so many powerful plotting com- 
mands. But, like all Simons’ BASIC commands, it too has its uses. You 
will not often plot just one pixel, but you might use this command to 
plot variously-spaced dotted lines. The following program demon- 
strates three uses of PLOT. 

Clear computer memory and enter the following program. Use 
AUTO 10,10 for automatic line numbering, rather than entering the 
line numbers shown with the program. The Simons’ BASIC commands 
illustrated are shown to the left of the program listing. 


Command 
Illustrated Program Listing 


HIRES 19 HIRES 8,1 
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TEXT 28 TEXT 0,8,''DEMONSTRATIONS OF THE PLOT 
COMMAND",1,2,8 
3@ REM PLOT A DIAGONAL DOTTED LINE 
46 FOR I=1 TO 88 STEP 18 


PLOT 50 PLOT 1+10,180+R,1 
68 R=R+8 
70 NEXT I 

PAUSE 80 PAUSE 3 

PLOT 90 PLOT 38,31,1 

TEXT 100 TEXT 40,25,"CCTRL AJPLOT [CTRL BJIS 
USEFUL FOR HIGHLIGHTING",1,1,8 

TEXT 116 TEXT 40,33,"CCTRL BJINDENTED TEXT.", 
1,138 

PAUSE 120 PAUSE 3 
130 FOR I= TO 368 STEP 5 

PLOT 146 PLOT 1,68,1 
150 NEXT I 

TEXT 160 TEXT 125,80,'"INSTRUCTIONS'",1,1,8 

PAUSE 170 PAUSE 3 

REC 180 REC 10,100,80,60,1 

PLOT 198 PLOT 125,186,1:PLOT 138,196,1 

TEXT 200 TEXT 140,108,"CCTRL AJFLCTRL BIOLD 
THE PAPER ALONG',1,1,8 

Te: 218 TEXT 140,108,"CCTRL BITHE DOTTED 


LINE." ,1;17,8 
228 GOTO 220 


RUN the program. Both a single dot and a double dot are used for 
indented text, which would be useful in printed listings. A dotted line is 
used to separate screen sections. A diagonal dotted line is used as an 
instruction guide on an illustration. Press the RUN/STOP key to end. 

Since this program will be edited to demonstrate the next command 
reviewed, do not clear computer memory. 


TEST 


This command allows you to check for plotting at a specified screen 
location. A value of @ is returned if the pixel in that location is off (no 
plotting) and a value of 1 if the pixel is on. 
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Command format: 


numeric variable name=TEST(x,y) 


The parameters x and y are the column and row coordinates of the 
location you wish to test for the occurrence of plotting. They must be 
enclosed in parentheses and separated by a comma. Omitting the 
parentheses will cause a SYNTAX ERROR. 

The following program statements will be added to the front of the 
program in memory. A pixel of a plotted rectangle will be tested, as 
well as a pixel in which no plotting occurs. The Simons’ BASIC com- 
mands illustrated are shown to the left of the program statements in 
which they occur. 


Command 

Illustrated Program Statements 

HIRES 1 HIRES 4,7 

REC 2 REC 128,88,88,48,1 

TEST 3 X=TEST (168,88) :Y=TEST(8,19) 

PAUSE 4 PAUSE 2 
5 PRINT ''[CCLEAR]CDOWN 2] X=";X,"'Y=";7Y 
6 END 


The rectangle plotted will travel through the location column 160 on 
row 80, giving X the value of 1. Since nothing will be plotted at location 
0,10, the value of Y will be @. So that the values of X and Y can be 
printed, the screen will be cleared to return to a low-resolution screen. 
RUN the program. 

Remove statement lines 1 through 6, and we will add a further dem- 
onstration of TEST to the program in memory. 

Enter the following program statements, using AUTO 220,10 if you 
wish to use automatic line numbering. The Simons’ BASIC commands 
illustrated are shown to the left of the statements in which they occur. 


Command 
Illustrated Program Statements 
PAUSE 228 PAUSE 2 
238 FOR I=1 TO 268 
TEST 246 IF TEST(195,288-1)=1 GOTO 279 


PLOT 258 PLOT 1095,200-I,1 
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268 NEXT I 
PAUSE 278 PAUSE 5 


These new instructions will first pause the graphic screen for two sec- 
onds, then draw a solid line beginning at the bottom of the screen and 
stopping when the dotted line, plotted earlier in the program, is 
reached. After a 5-second pause, the program will end. 

RUN the program. 

Using the PLOT command to draw a line between previously plotted 
locations has the advantage of being able to use TEST to determine the 
ending location, an advantage not available with the LINE command. 


NRM 


This command stands for ‘normal’ and is used to return to the nor- 
mal Commodore screen—the low-resolution screen. 


Command format: 


NRM 


Adding this statement to the program in memory would not affect the 
program, nor change the display after the program ends. 


Coloring and 
Drawing in 
HIRES © 


The PAINT and BLOCK commands enable you to fill plotted shapes 
with color. The DRAW command will allow you to create your own 
designs. The ROT command will enable you to display your designs in 
the size created, or a larger size, and position them as drawn or rotate 
them. ROT provides some animation, without using sprites. Each of 
these commands will be reviewed and illustrated in demonstration 
programs. 


PAINT 


This command is used to fill any enclosed graphic shape with the cur- 
rent plotting color, as specified in either HIRES, LOW COL, or HI COL. 
The shape must be completely enclosed. If it is not, painting takes place 
over the entire screen. 


Command format: 


PAINT x,y,plot type 


The parameters x and y are the column and row coordinates that 
specify any point within the boundaries of the shape to be painted. Plot 
type is the same for all graphic commands. When using the high-resolu- 
tion mode a shape may be painted only once. In the multicolor mode, a 
shape may be repainted as often as you like. This will be reviewed in 
Section VI—Multicolor Graphics. 


165 


| 
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To demonstrate the use of the PAINT command, the next demonstra- 
tion program will: 
1. Plot a rectangle then a circle. Then divide the rectangle with a diagonal 
line. The plotting color is black. 
2. After pausing for five seconds, PAINT the lower triangular portion of 
the rectangle, using the diagonal line as the end of the enclosed shape. 
Then paint the circle. The plotting color will be purple, as specified in 
the LOW COL statement. 
3. The plotting color will change again, this time to blue, and a hexagon 
will then be plotted and painted. 


Clear computer memory, use AUTO 10,10 for automatic line number- 
ing, and enter the following program. The Simons’ BASIC commands 
illustrated are shown to the left of the program listing. 


Command Illustrated Program Listing 


HIRES 18 HIRES 0,7 

REC 28 REC 120,60,88,40,1 

CIRCLE 36 CIRCLE 589,50,20*1.4,20,1 

LINE 49 LINE 128,60,200,190,1 

PAUSE 5@ PAUSE 5 

LOW COL 68 LOW COL 4,7,1 

PAINT 7@ PAINT 130,90,1 

PAINT 88 PAINT 60,60,1 

LOW COL 96 LOW COL 6,7,1 

ARC 198 ARC 248,158,80,368,60,40« 
1.4,48,1 

PAINT 116 PAINT 249,159,1 


128 GOTO 128 


RUN the program. Note that only the bottom portion of the divided 
rectangle is painted—stopped by the diagonal line. If a location within 
the upper portion of the rectangle were given in the PAINT statement, 
then only that portion would be painted. Press the RUN/STOP key to 
end the program. To also paint the upper portion of the rectangle, add 
the following statement. 


75 PAINT 198,78,1 


To PAINT only the upper portion of the rectangle, use the above state- 
ment to replace line 70. 

When using this command, remember that the location specified for 
PAINT can be any location within the plotted boundaries of the shape 
to be painted. 
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Adding the following statements to the program in memory will fur- 
ther demonstrate the PAINT command. For automatic line numbering 
when entering the following statement lines, use AUTO 120,10. The 
Simons’ BASIC commands illustrated are shown to the left of the pro- 
gram statements in which they occur. 


Command Illustrated Program Statements 


HIRES 128 HIRES 8,7:X=15%1.4 

TEXF 138 TEXT 38,20,""HAPPY 
BIRTHDAY",1,4,16 

CIRCLE 148 CIRCLE 108,100,X,15,1 

CIRCLE 158 CIRCLE 140,88,X,15,1 

CIRCLE 168 CIRCLE 188,100,X,15,1 

LINE 178 LINE 185,115,148,199,1 

LINE 188 LINE 148,95,148,199,1 

LINE 19@ LINE 175,115,140,199,1 

LOW COL 208 LOW COL 4,7,8 

PAINT 218 PAINT 100,180,1 

LOW COL 228 LOW COL 5,7,98 

PAINT 238 PAINT 148,88,1 

LOW COL 248 LOW COL 6,7,98 

PAINT 258 PAINT 189,1980,1 


268 GOTO 268 


Since this added portion of the program uses locations used earlier in 

the program, another graphic screen must be created. Thus a second 

HIRES statement is needed to create this new graphic screen (line 120). 
RUN the program and press the RUN/STOP key to end. 


BLOCK 


This command performs the functions of the REC and PAINT com- 
mands combined. To fill an entire rectangle or square with the most 
recent plotting color specified, use BLOCK. The rectangle or square 
will be plotted and filled simultaneously. Any shape other than a rec- 
tangle or a square must use the command for the desired shape and the 
PAINT command. 


Command format: 


BLOCK x,y,x1,y1,plot type 
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The x and y parameters specify the location of the upper left-hand 
corner of the rectangle or square. The parameters x1 and y1 specify the 
bottom right-hand corner of the rectangle or square. The parameter x 
always specifies the column and y the row. Plot type is the same for all 
graphic commands. 

The following demonstration program illustrates the use of BLOCK in 
plotting two rectangles and a square filled with the most recently speci- 
fied plotting color. 

Clear computer memory and enter the following program. To use 
automatic line numbering enter AUTO 10,10. The Simons’ BASIC com- 
mands illustrated are listed to the left of the program listing. 


Command 

Illustrated Program Listing 

HIRES 1@ HIRES 4,7 

BLOCK 26 BLOCK 18,18,98,58,1 

LOW COL 30 LOW COL 5,7,8 

BLOCK 46 BLOCK 130,70,80x1.4+80,119,1 
LOW COL 5@ LOW COL 6,7,9 

BLOCK 6@ BLOCK 239,159,319,1998,1 
PAUSE 7@ PAUSE 3 


The BLOCK statement in line 40 has to carry the adjustment for plot- 
ting a square. RUN the program. 


DRAW 


This command is used to designate a design to be displayed on a 
graphic screen. 


Command format: 


DRAW “design instructions’’,x,y,plot type 


The last three parameters are already familiar. The x,y parameters 
(column,row) specify the location where drawing will begin. Plot type 
is the same for all graphic commands. The new parameter is design 
instructions. They may be included directly in the DRAW command as 
long as the statement line does not exceed 80 characters. For larger 
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designs the instructions are assigned as the value of a string variable, 
and the string variable name used as the parameter in the DRAW com- 
mand. The string must, of course, be created prior to executing the 
DRAW command. Design instructions must always be enclosed in quo- 
tation marks. Each design is limited to 255 instructions, with no more 
than 74 instructions on a program line. Use concatenation to link your 
design instructions when they exceed 74. For example: A$= 
“555666776785 etc.”:B$=A$+ “885567789”. Each instruction is desig- 
nated by a number, as shown in Figure 16.1, specifying the location of 
the pixel to be turned on—plotted—or left off—skipped over. This pro- 
vides the ability to leave spaces between dots drawn while continuing 
the same graphic. You should use these instructions as you would move 
a pencil on paper. 


DRAW Command Design Instructions 


Number Instruction 


Ss 


Move one pixel to the right. 

Move one pixel up. 

Move one pixel down. 

Move one pixel to the left. 

Move one pixel to the right and plot a dot. 
Move one pixel up and plot a dot. 

Move one pixel down and plot a dot. 
Move one pixel to the left and plot a dot. 
Stop drawing. 


COOAnNO AWN ke 


Figure 16.1 


Instructions @ through 3 do no plotting; they simply move the “‘pen- 
cil”. Instructions 5 through 8 move the pencil and plot a dot (pixel). 
Instruction 9 is only needed to end ‘‘drawing” before the end of the 
design instructions. This would be useful for modifying a design. 
Inserting the instruction 9 at the point where the modified design 
should end would save the additional design instructions, which might 
be useful at another time. Normally the end quotation mark of the last 
design statement signifies the end of a design. 

Since each instruction affects only one pixel (bit), an enormous num- 
ber of instructions would be required for a large graphic if the size of 
the design could not be increased. Fortunately, automatic design 
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enlargement is provided in a companion instruction, the ROT—stand- 
ing for rotate—command. The ROT command must be used with the 
DRAW command in order to display a design. 


ROT 


This command is used to display the design specified by the DRAW 
command. It also provides design rotation and design enlargement. 


Command format: 


ROT rotation number,size 


The parameter rotation number designates the degree of rotation 
desired. Rotation can be eliminated by specifying the value @ as the 
rotation number. This means that the design will be shown at the angle 
at which it was drawn in the design instructions. Rotation numbers and 
the degree of rotation that each represents are shown in Figure 16.2 
below. 


ROT Rotation Instructions 


Rotation Number Degree of Rotation 


0 
45 
90 

135 
180 
225 
270 
315 


N Qa fh WNP S&S 


Figure 16.2 


A rotation number greater than 7 will cause the error message BAD 
MODE. A negative number will cause an ILLEGAL QUANTITY 
ERROR. 

The parameter size specifies the desired size of the design. The num- 
ber 1 is used to display the design at the normal size, that is, as drawn. 
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Each number higher than 1 increases the size by that amount. For 
example, the number 2 would double the size of the design, while 3 
would triple the size, and so on. If the size specified creates a design 
larger than screen size, no error message will be given. The portion of 
the design that falls outside of the screen will simply not be seen. A 
value of 0 will not generate the correct design. Using the following pro- 
gram as an example, the design would be a vertical and horizontal line, 
rather then a pendulum. 

The following demonstration program will show a design in size 1— 
as drawn—to illustrate the size of a pixel-by-pixel drawing. It will be 
shown at @ degree of angle, that is, as drawn with no change of 
position. The design object is a pendulum, consisting of a straight rod 
ending with a square pendulum bob (the weight). 

Clear computer memory, use AUTO 10,10 for automatic line num- 
bering, and enter the following program. To aid you in keying in the 
design string in line 20, here are simplified keyboarding instructions: 
twelve 7’s, two 5’s, three 7’s, four 8’s, three 6’s, and three 5’s. The 
Simons’ BASIC commands illustrated are shown to the left of the pro- 
gram listing. 


Command Illustrated Program Listing 


HIRES 10 HIRES 7,9 
28 AS="'777777777777557778888666555"" 
ROT 3 ROT 8,1 
DRAW 40 DRAW A$,158,70,1 
PAUSE 5@ PAUSE 5 
RUN the program. 


Edit line 30, as follows, to increase the pendulum to four times its 
normal size. 


38 ROT 8,4 


ROT now specifies @ rotation (no rotation) and an increase of 4 in the 
size of the design. 

RUN the program again. The size is now large enough to clearly see 
the design. As I’m sure you noticed, the horizontal lines were deeper in 
color than the vertical lines. This difference disappears when using 
black as the plotting color. To effect lines of equivalent intensity, 
switch the plotting and background colors in the HIRES statement (line 
10). This statement will now read: HIRES 6,7. 

RUN the program again. 
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To demonstrate size increases, the following program changes will 
display the design in sizes 1 through 7. The Simons’ BASIC commands 
illustrated are shown to the left of the program statements in which 
they occur. LIST the current program, and enter or edit the statements 
as shown below. 


Command Illustrated Program Statements 
25 FOR I=1 TO 7 


ROT 38 ROT B,I 

PAUSE 5@ PAUSE 2 

DRAW 60 DRAW A$,158,70,0 
78 NEXT I 


Each design will be turned off (line 60) before displaying the design in 
the next size. 

RUN the program. 

It is often useful to use the ROT command only to increase the size of 
a design, and to bypass rotation by using the parameter 0. 

For a demonstration of the rotation parameter, clear computer 
memory, enter AUTO 10,10 for automatic line numbering, and enter 
the following program. This program will use the same design, 
redrawn to assume a 45 degree angle. This was necessary in order to 
correctly position the pendulum for rotation. For demonstration pur- 
poses, this rotation is exaggerated. The Simons’ BASIC commands 
illustrated are shown to the left of the program listing. 


Command 
Illustrated Program Listing 
HIRES 16 HIRES 8,7 


28 A$="'5555555555555566555777788866"' 
36 FOR I=8 TO 4 
ROT and DRAW4® ROT 1,3:DRAW A$,150,190,1 
DRAW 5@ DRAW AS$,159,199,0 
668 NEXT I 
76 FOR J=4 TO @ STEP -1 
ROT and DRAW8® ROT J,3:DRAW A$,150,199,1 
DRAW 96 DRAW A$,150,100,8 
198 NEXT J 
118 GOTO 38 


Loop I will rotate the pendulum from its beginning angle of 90 
degrees to an angle of 180 degrees, using the 45 degree increments 
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imposed by the rotation parameter. Loop J will swing the pendulum 
back by rotating the pendulum from the 180 degree position to the 
beginning 90 degree position, again using the 45 degree increments. 
RUN the program and press the RUN/STOP key to end. 

The PAUSE command can be used to slow rotation. But even a pause 
of one second is greater than desired. To see the result of a one second 
pause between rotations, add the following statements to the program 
in memory. 


45 PAUSE 1 
85 PAUSE 1 


RUN the program again and press the RUN/STOP key to end. You 
can substitute a FOR NEXT loop for each of the above PAUSE state- 
ments. FOR K=1 TO 50:NEXT K and FOR L=1 TO 50:NEXT L works 
nicely. 

A design need be only a portion of a graphic screen on which other 
graphic commands are also utilized. This is demonstrated by turning 
the program in memory into GRANDDAD’S CLOCK. Add the following 
statement lines to the program in memory. The Simons’ BASIC com- 
mands illustrated are shown to the left of the program line in which 
they occur. 


Command Illustrated Program Listing 


REC 12 REC 118,10,88,158,1 

REC 13 REC 115,99,70,48,1 

CIRCLE 14 CIRCLE 150,45,20*1.4,20,1 
ANGL 15 ANGL 158,45,98,15*1.4,15,1 
ANGL 16 ANGL 158,45,0,15*1.4,15,1 
TEXT 17 TEXT 98,188,''GRANDDAD'S 


CLOCK 1.240 
Now make the following changes to the program. 


1. Change the size parameter in both ROT statements (lines 40 and 80) to 
1. In order to have a reasonable size clock, the size of the pendulum 
must be decreased. 

2. Increase the length of the pendulum rod by adding eight number 5 
instructions to the beginning of the A$ design character string (line 20). 

3. Remove lines 45 and 85, the PAUSE or FOR NEXT statements that were 
added to slow the pendulum. 


RUN the new graphic program. Press the RUN/STOP key to end. 
If you are not going on to the next chapter now, SAVE this program. 
It will be used in Chapter 17 to demonstrate output commands. 


Graphic Output 


The two output commands used for graphic screens are CSET and 
COPY. As you know, CSET has two functions that are used on a low- 
resolution screen, using the parameters @ and 1. The third function of 
CSET, using 2 as the parameter, is to recall a previously displayed 
graphic screen. The COPY command permits you to produce a hard 
copy of a graphic screen on a serial printer. COPY is the same for 
graphic screens as HRDCPY (Chapter 9) is for low-resolution screens. 


CSET 


As with the other two functions of CSET (0 and 1), CSET 2 can also 
be used in both the immediate and program modes. 


Command format: 


CSET 2 


CSET 2 is used after the program has left the high-resolution or multi- 
color mode and returned to the low-resolution mode (the normal screen 
type). Used in the immediate mode after the program ends and returns 
to a low-resolution screen, CSET 2 must be followed by a command, or 
group of commands, to hold the graphic on the screen. PAUSE is the 
most useful command for this purpose. To recall a screen from the pro- 
gram mode, the program must be using a low-resolution screen at the 
time of recall. This means that if the program has been using high-reso- 
lution, it must be switched to low-resolution before using CSET 2. This 
is done by first using CSET 6 or CSET 1 to return—even briefly—to a 
low-resolution screen. 

The use of CSET 2 in both the immediate and program modes will be 
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demonstrated using the program from Chapter 16. If you cleared mem- 
ory at the end of the last chapter, LOAD this program—GRANDDAD’S 
‘CLOCK—now. 

RUN the program and press the RUN/STOP key to end. Ending the 
program will bring you back to the low-resolution mode. 


ENTER: CSET 2:PAUSE 198 


The graphic screen reappeared. The pendulum may or may not have 
been displayed. It would not be displayed if either line 50 or line 90 was 
the last statement executed when the program was terminated. 

LIST the program. To demonstrate screen recall in the program 
mode, the program will be changed to replace the endless GOTO loop 
with a FOR NEXT loop and the recall instructions will be added. 


ENTER: 25 FOR K=1 TO 18 
118 NEXT K 
128 CSET @:PRINT '"'CCLEAR]":PAUSE 3 
138 CSET 2:PAUSE 5 


The above program changes will cause the pendulum rotations (loops 
I and J) to be repeated 10 times. Then the screen will return to low-reso- 
lution mode and be cleared (line 120). After a PAUSE of 3 seconds (line 
120), the graphic screen will reappear and PAUSE for 5 seconds (line 
130) before the program ends, returning again to the low-resolution 
screen. RUN the program. 

It was not necessary to clear the screen or pause before recalling the 
graphic screen. It is only necessary to first return to a low-resolution 
screen by using either CSET 0 or CSET 1. PAUSE was used in this pro- 
gram to demonstrate the switch from high to low resolution. If the 
CLEAR statement wasn’t used, the most previous low-resolution screen 
(in this case, the program listing) would be displayed. 


COPY 


This statement outputs the contents of a graphic screen to a serial 
printer. 


Statement format: 


COPY 
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To print the program in memory, the CIRCLE and ANGL statements 
must be changed so that the x and y radii are equal. If you have a serial 
printer, make the necessary statement changes and add the copy state- 
ment as shown below. 


ENTER: 14 CIRCLE 158,45,20,20,1 
15 ANGL 158,45,98,15,15,1 
16 ANGL 1509,45,8,15,15,1 
148 COPY 


Remember that the adjustment factor must always be removed from 
graphic statements in order to print hard copy graphics having the cor- 
rect proportions. The adjustment factor is only necessary for screen 
display. 

RUN the program to produce hard copy output. Note: Printing suc- 
cess is very slow! It will take some time for the graphic screen to print. 
If this task is too hard on your printer, end it. It’s also possible that this 
command won’t work with your particular printer interface. So if 
COPY doesn’t work, the Simons’ BASIC cartridge isn’t the problem. 

After printing the graphic screen, edit statements 14, 15, and 16 to 
again correctly display the clockface and hands on your screen. 


Multicolor 
Graphics 


Introduction 


Multicolor is the third, and final, screen mode provided by Simons’ 
BASIC. As you know, the multicolor screen is the second type of 
graphic screen available in Simons’ BASIC. It also uses all of the 
graphic commands reviewed in the previous chapter. As you will see, 
the difference in output is twofold. Multicolor allows far more exten- 
sive use of color, but sacrifices the extent of resolution. The horizontal 
resolution for multicolor is half that of high-resolution, with each plot- 
ting position being two pixels wide. In this section you will discover 
the advantages and disadvantages of the multicolor screen, as com- 
pared to the high-resolution screen. You will then know which graphic 
screen is most apt to suit a particular programming purpose. 


Multicolor Screen Configuration 


The multicolor screen configuration is 160 columns wide by 200 rows 
deep, making each plotting position two pixels wide and one pixel 
deep. The y (row) coordinates are the same as for the high-resolution 
screen, but the x (column) coordinates change. The grid below shows 
the three screen configurations—low-resolution, high-resolution, and 
multicolor—for your comparison. 

As shown on the following grid, the center of a multicolor screen is 
80,100, that is, column 80 and row 100. Already being familiar with the 
high-resolution screen, you only have to remember that you have half 
the number of HIRES horizontal plotting positions available on a multi- 
color screen. 
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rind BL o-tcap lk Low Resolution 
Figure S6.1: Screen Layout with Column and Row Locations (Showing 
multicolor, high-resolution, and low-resolution screen 
locations.) 


There is only one graphic command specific to this screen type—the 
MULTI command. And, because of the increased plotting colors avail- 
able, the plot type functions increase. The six graphic commands—REC 
(when plotting a square),CIRCLE, ARC, ANGL, LOW COL, and 
PAINT—are used somewhat differently on a multicolor screen. The 
required screen adjustment made for plotting commands is added to 
the depth rather than the width parameter. The LOW COL command is 
now able to use the color 3 parameter, and PAINT can be used to refill 
shapes with different colors. These commands and parameters will be 
re-reviewed using a multicolor screen, and the other graphic com- 
mands previously reviewed will be demonstrated with them. 

The following are highlights of this section’s Chapter 18. 


Chapter 18 


MULTI is the command that initializes the multicolor screen and 
specifies the three plotting colors to be used. 
Plot type for the multicolor screen includes five functions: clearing 
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(turning off) a dot, plotting in one of three colors, and inversing dot 
color. 

REC applies the screen adjustment to the depth, rather than to the 
width, parameter to plot a square on the multicolor screen. 

CIRCLE, ARC, and ANGL apply the screen adjustment to the vertical 
radii, rather than the horizontal radii, when using the multicolor 
screen. 

LOW COL is used to change the three multicolor plotting colors. 

PAINT fills a shape with a different color as often as you like. 


Key to Entering Program Listings 


There are no additional key conventions used in this section. 


Multicolor 
Plotting 


18 


The MULTI command with its five plot types will be demonstrated in 
program mode, along with the plotting commands used with the high- 
resolution screen. Special emphasis will be placed on those plotting 
commands whose parameters are modified by the multicolor screen 
configuration or the use of extended color. This screen configuration, 


which was shown in the section introduction, is shown again in Figure 
18.1 below. 
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Figure 18.1: Screen Configuration Grid for the multicolor Screen 
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MULTI 


This command resets the high-resolution screen into the multicolor 
screen configuration of 160 columns by 200 rows, changing each plot- 
ting position to two pixels in width. It carries the three parameters that 
allow three plotting colors to be used on this graphic screen. 


Command format: 


MULTI color 1, color 2, color 3 


This command must be preceded by the HIRES command in order to 
function. MULTI, used alone, cannot initialize a multicolor screen. The 
HIRES command must be entered in the same format with MULTI as it 
is entered to initialize a high-resolution screen. However, the two 
HIRES parameters, specifying plotting color and screen background 
color, are ignored. Only the plotting colors in the MULTI command are 
used. The plotting color in the HIRES statement is overridden by the 
plotting color parameters in MULTI. The screen background color is 
also ignored. Therefore, the COLOUR command must be used to spec- 
ify a screen background color for a multicolor screen. 

Plot types and their use with the three color parameters are shown 
below in Figure 18.2. 


Plot Type Function 


Clears a dot. 
Uses plotting color specified in the color 1 parameter. 
Uses plotting color specified in the color 2 parameter. 
Uses plotting color specified in the color 3 parameter. 
Reverses the order of the plotting color used: 

Plot color @ changes to color 3 

Plot color 1 changes to color 2 

Plot color 2 changes to color 1 

Plot color 3 changes to color 0 


LPwoONrF S&S 


Figure 18.2 


The above five plot type functions for a multicolor screen replace the 
three plot type functions used for a high-resolution screen. 

The following program will demonstrate the colorful use of MULTI 
by drawing a rectangle in red on the left side of the screen, another rec- 
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tangle in blue on the right side of the screen, and a purple line between 
them. Clear computer memory, for automatic line numbering use 
AUTO 10,10, and enter the following program. The Simons’ BASIC 
commands illustrated are shown to the left of the program listing. 


Command Illustrated Program Listing 


HIRES and MULTI 18 HIRES @,13:MULTI 2,6,4 
REC 20 REC 19,88,48,30,1 
LINE 36 LINE 68,95,198,95,3 
REC 49 REC 119,80,40,30,2 

5@ GOTO 58 


The first rectangle plotted (line 20) will use plot type 1, so it will be 
drawn using the first MULTI parameter, color 2—red. The LINE state- 
ment (line 30) will use plot type 3, so the line will be drawn using the 
third MULTI parameter, color 4—purple. The second rectangle plotted 
(line 40) uses plot type 2, thus specifying the use of the second MULTI 
parameter, color 2—blue. Both REC and LINE function the same on 
either graphic screen—high-resolution or multicolor. The plotting loca- 
tions for these three graphic shapes are illustrated on the multicolor 
screen grid shown below, Figure 18.3. 
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Figure 18.3. Two rectangles and a line plotted on a grid using the multicolor 
screen configuration. 
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RUN the program. As you can see, the screen background color (light 
green) specified in the HIRES statement on line 10 was ignored. The 
background color used was the normal Simons’ BASIC background 
color of light grey. The plotting color given in HIRES (black) was also 
ignored. Press the RUN/STOP key to end the program and return to the 
low-resolution screen. To add screen color to this program, 


ENTER: 5 COLOUR 5,13 


and RUN the program again. Now the multicolor graphics appear on a 
light green screen with a green border. Press the RUN/STOP key to end 
the program. | 

LIST the program. To use the LINE statement to demonstrate all five 
MULTI plot types, edit line 30 to change plot type from 3 to the variable 
PT and add lines 50 through 70, as shown below. 


30 LINE 686,95,198,95,PT 
5@ PT=PT+1:PAUSE 3 

6@ IF PT<5 GOTO 29 

78 END 


The plot type of LINE will change five times, with a pause of three sec- 
onds between the display of each plot type. Plot type will begin at 6— 
clears a dot—showing no line on the graphic screen, then use plot type 
1 (color 1, red), plot type 2 (color 2, blue), plot type 3 (color 3, purple), 
and end with plot type 4 which reverses plot type 3 to plot type 0. 


Squares on a Multicolor Screen 


In order to use the REC command to plot a square on the multicolor 
screen configuration, the ratio of physical screen (TV or monitor) width 
to depth is applied to the depth, rather than the width. This is necessary 
because, unlike the high-resolution screen, the multicolor screen con- 
figuration is deeper than it is wide—200 rows by 160 columns. The 
same adjustment factor used for the high-resolution screen—1.4—will 
be used for the multicolor screen, but the factor is applied to the depth 
rather than the width parameter. 

LIST the program in memory. By changing the depth parameter in 
the two REC statements as shown below, the two rectangles will be 
replaced by squares. Rather than again displaying the five plot types in 
the LINE statement, the program will pause for five seconds after print- 
ing the squares, then end. The Simons’ BASIC commands illustrated 
are shown to the left of the program statement in which they occur. 
Enter the new statements. 
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Command Illustrated Program Statements 


REC (plot a square) 28 REC 19,80,40,40%1.4,1 
REC (plot a square) 30 REC 119,80,40,40*1.4,2 
48 PAUSE 5:END 


Circles, Angles, and Arcs 


To plot a circle on a high-resolution screen, the horizontal radii had 
to be adjusted—multiplied by 1.4. For a multicolor screen, the vertical 
radii must be adjusted by the same amount, that is, vertical 
radii=horizontal radiix1.4. If this adjustment isn’t best for your moni- 
tor, experiment in the range 1.4 to 1.6 and choose the one that works 
best for you. (Note: When producing a hard copy of a graphic screen, 
the radii must be equal in order to print a perfect circle.) 

The circle will very clearly show the difference in extent of resolution 
between the high-resolution and multicolor screen. Add the following 
statement lines to the program in memory. Line 40 will replace the 
PAUSE and END statements. 


49 CIRCLE 80,100,25,25%1.4,3 
58 GOTO 58 


RUN the program again. You are now seeing the “‘jaggies’’, the stair- 
case effect of lower resolution. This is a very different circle than plot- 
ted in high-resolution! Press the RUN/STOP key to end the program. 

This would not make the best clock face, as you will see by adding the 
following statements to plot the hour and minute hands. 


58 ANGL 86,108,8,20,20%1.4,2:ANGL 80,108,986 20,20 
1.4,2 
68 GOTO 68 


Of course, the same adjustment is made to the vertical radii in the 
ANGL command as was made in the CIRCLE command. 

RUN the program and press the RUN/STOP key to end. 

For a demonstration of the ARC command on a multicolor screen, 
add the following statement lines to the program in memory. 


66 ARC 88,160,8,180,1,15,15*1.4,2:PAUSE 3 
70 ARC 88,168,188,360,1,15,15%1.4,3:PAUSE 3 


Two arcs will be plotted to form a smaller circle under the center cir- 
cle. After each arc (half-circle) is plotted, the program will pause for 
three seconds. RUN the program. 
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Changing Colors 


As you know, the LOW COL command has three color parameters, 
but is only able to use the first two in high-resolution mode. Now you 
will be able to make use of all three parameters. 

To change the colors used in the program in memory add the follow- 
ing statement lines. 


86 LOW COL 7,8,3 
96 X=X+1:IF X=1 GOTO 38 
19@ PAUSE 3:END 


The shapes will be plotted a second time, using the colors yellow, black, 
and cyan, the program will pause three seconds, and then it will end. 
To speed-up the changing colors, you may want to remove the PAUSE 
3 statements following the ARC statements in lines 60 and 70. 

RUN the program. 


Painting Shapes 


You already know how to use the PAINT command, but now it can 
be used to both paint and repaint shapes on the multicolor screen. 


ENTER: 19 PAINT 15,85,2:PAINT 115,85,3:PAINT 
90,90,1:PAINT 90,158,1:PAUSE 3 
118 PAINT 15,85,1:PAINT 115,85,2:PAINT 
90,90,3:PAINT 98,158,3:PAUSE 5 


LIST the program. After the program plots the four shapes a second 
time using LOW COL, line 100 will paint the left square black, the right 
square blue, and the two circles yellow. Then execution will pause for 
three seconds. Line 110 will repaint the left square yellow, the right 
square black, and the two circles blue. Program execution will pause 
for five seconds, and then end. Note that the color yellow appears 
orange when painted on a light green background. 
RUN the program. 


Remember that all of the plotting commands are used for both 
graphic screens—the high-resolution screen and the multicolor screen! 
Only the additional multicolor graphic commands and those requiring 
changes for use on a multicolor screen were reviewed in this section. 


Sprite 
Graphics 


Introduction 


This section is written to be easily understood by the Commodore 64 
BASIC programmer who has not used the PEEKs and POKEs of Com- 
modore BASIC’s sprite graphics. Those of you who have been creating 
sprites with BASIC will anticipate the commands that are needed and 
know which POKEs and PEEKs are being replaced by the Simons’ 
BASIC commands. You are also familiar with the screen configuration 
and already know how to position sprites on the screen. Screen config- 
uration and sprite positioning are reviewed in detail for the sprite nov- 
ice. For both the newcomer and the knowledgeable sprite user, Simons’ 
BASIC will eliminate much of the tedious sprite programming. But—in 
Simons’ BASIC you will have to get used to calling a sprite a MOB. 
However, MOB—standing for Movable Block Object—is certainly not 
as exciting a word as sprite! The words MOB and sprite are used inter- 
changeably throughout this section. 

The following is a brief overview of the sprite commands reviewed in 
this section. 


Chapter 19—Creating and Using Sprites 


DESIGN specifies sprite resolution—high resolution or multicolor— 
and reserves 64 bytes of memory space for the sprite design. 

@ is used to begin each statement of the design grid for both high-res- 
olution and multicolor sprites. 

MOB SET initializes a high-resolution or multicolor MOB. 

CMOB is used to specify the two additional colors to be used in a 
multicolor sprite. 
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MMOB displays a high resolution or multicolor MOB. This command 
also allows the user to specify an expanded sprite size, and move the 
sprite on the screen at a user-defined speed. 

RLOCMOB is used to move a displayed MOB to another screen loca- 
tion. 

DETECT is used for collision detection between two sprites, or 
between any displayed sprite and screen data. 

CHECK is the collision testing statement. 

MOB OFF clears a MOB from the screen. 


Chapter 20—Sprites on a High-Resolution or 
Multicolor Screen 


This chapter reviews the MOB data storage address changes in the 
DESIGN and MOB SET command parameters necessary for displaying 
sprites on a graphic screen—high resolution or multicolor. Also 
reviewed is the required statement order for displaying high-resolution 
and/or multicolor sprites on each of the three screen types. 


Key to Entering Program Listings 


In this section, special instructions are given to the right of design 
statements for entering design grid data. The code to be entered is fol- 
lowed by the number of repetitions of that code. Each code and its rep- 
etitions is separated from the next by a comma. If two codes are to be 
repeated, they are shown together, followed by the number of repeti- 
tions. 

For example: .20,B,.3 means to enter twenty periods, one B, and 
three periods. 


Creating and 
Using Sprites 


This chapter reviews each statement used for the design, display, and 
interaction of ‘“‘sprites’—those lovable creatures so well known from 
arcade games. A sprite is a programmable character that can assume 
any user-defined shape. A sprite is known as a MOB—Movable Object 
Block—in Simons’ BASIC. You have been introduced to sprites in low 
resolution, using the DESIGN 2 and @ commands for creating user- 
defined characters. A sprite design, however, is much larger in size, 
and, therefore, in detail, than a user-defined character. Sprites (MOBs) 
can be either high-resolution or multicolor, be stationary or move rap- 
idly, can be expanded in size, and can collide and disappear. A maxi- 
mum of eight sprites may be displayed at any one time. 

MOBs can be displayed on normal and graphic screens—low resolu- 
tion, high-resolution, and multicolor. This chapter will review each 
MOB statement and display the MOBs on a low resolution screen. 
Chapter 20 will review the use of sprites on high-resolution and multi- 
color screens. 

The DESIGN statement has the same function in sprite design as the 
DESIGN 2 statement has in user-defined graphics, and the @ statement 
also has the same function for both design types. Only the parameters 
change. 


DESIGN 


This command reserves 64 bytes of memory in RAM (Random 
Access Memory) for each MOB created. DESIGN must always directly 
precede the @ statements in which the design is created. If the 
DESIGN statement follows the @ statements, a SYNTAX ERROR mes- 
sage will be given for the line number of the first @ statement. If other 


189 


190 » VII Sprite Graphics 


statements appear between the DESIGN statement and the first @ state- 
ment, the SYNTAX ERROR will be given for the DESIGN statement. 


Statement format: 


DESIGN resolution,starting memory location 


The resolution parameter specifies either a high resolution or multi- 
color MOB, not screen type, with the number 0 indicating high resolu- 
tion and the number 1 specifying multicolor. The @ command, 
reviewed next, is used to design these two MOB types. The difference 
between the MOB types is the same as the difference between high-res- 
olution and multicolor plotting graphics. multicolor sacrifices resolu- 
tion for additional color. In sprites, however, the resolution difference 
is not as obvious. 

Starting memory location is the address in memory where the MOB 
data will be stored. MOBs using the low-resolution screen use a portion 
of memory normally used for BASIC programs. For this reason, the 
portion of memory allocated to MOBs (sprites) must be below the 
BASIC program creating them, in order for the program to be stored in 
memory. A BASIC program is stored in memory beginning at memory 
location 2048. MOB memory locations begin at 8192. If the first mem- 
ory location available for a MOB is used, there will be 6,144 bytes 
(8192-2048) available for storing the program. If additional memory is 
needed, specify a higher memory address for the first MOB to allow 
sufficient memory for your program. The last address available for a 
MOB is 16320, leaving 14,217 bytes available for a program using one 
MOB. Because of the MOB memory locations used by Simons’ BASIC, 
this is a significant change in available BASIC memory. 

Note: If there isn’t sufficient memory to store your program, the pro- 
gram will be lost after it is run. For this reason, it’s a good idea to SAVE 
your program before running it, unless you’re sure that your program is 
sufficiently short and will not overlap the memory space reserved for 
that program’s MOBs, as specified in the program’s DESIGN state- 
ment(s). The over 14,000 bytes should be sufficient for most of your pro- 
gramming needs. However, if your program, including the reserved 
space for MOBs, is too large to be stored in this area of memory, you 
will have to either move your BASIC program to another portion of 
memory or use a graphic screen. When using a high-resolution or mul- 
ticolor screen, this problem is eliminated, as described in Chapter 20, 
pages 207-208. 
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The block number of the starting memory location specified in this 
command is a parameter of the command that initializes the MOB. This 
initializer—-MOB SET—is reviewed later in this chapter. The memory 
locations and block numbers available for MOBs used on a low-resolu- 
tion screen are: 


Block Numbers Memory Locations 
128-255 8192-16320 


Block number * 64 = memory location, for example, block number 128 
*64=memory location 8192, block number 129*64=memory location 
8256, and so on. Figure 19.7 at the end of this chapter, pages 204-206, 
shows each available starting memory location and block number. 

A program may have as many MOBs as there is available memory 
space. This means a whopping maximum of 128 MOBs! However, no 
more than eight MOBs can be displayed at any one time. 


@ 


This command serves the same function for sprite graphics that it 
does for low resolution user-defined characters. However, you will be 
using a much larger grid to design sprites. For a high-resolution sprite, 
the grid is 24 pixels (dots) wide by 21 lines deep. A multicolor sprite is 
half the width and the same depth—12 pixels wide by 21 lines deep. 
Both the high-resolution and multicolor sprite will occupy the same 
space on the screen, since each multicolor horizontal dot—represented 
by one dot on the design grid—is two pixels wide. 


Statement format: 


@ design 


For a high-resolution sprite, the design is drawn by using the same 
codes used for low resolution user-defined characters. That is, a period 
for turned off pixels and the letter B for turned on pixels. Only one 
color is allowed in high-resolution sprites. 

For a multicolor sprite, three colors may be used for the pixels that 
are on. The letter C designates color 1, the letter D designates color 2, 
and the letter B is used to designate the main color, color 3. 

It is important to keep all 21 lines of a MOB positioned the same m 
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using line numbers containing the same number of digits. First, it is 
easier to design the MOB by having the grid line up exactly on the 
screen. Secondly, if you use line numbers containing a different num- 
ber of digits (ex., 80, 90, 100, 110, and so on), and it is necessary to edit 
one or more @ statements after running the program, you may have a 
problem. When you LIST the program, the @ sign on the higher digit 
lines will have disappeared! You may have to reinsert the @ signs in 
order to have the program run properly. The disappearance of the @ 
sign will not regularly “crash” the program, but it sometimes will. Bet- 
ter safe than sorry! 

If a SYNTAX ERROR message is given for the first @ statement, it 
can be caused by either the improper location of the DESIGN statement 
in your program or by an incorrect number of pixels specified in the @ 
statement. 

Note: If a comma is used rather than a period in an @ statement, the 
program will “hang” when run. If this occurs, press the RUN/STOP 
and RESTORE keys, LIST the program, and replace the comma with a 
period. 

The following statements will begin the demonstration program, cre- 
ating a high-resolution MOB beginning at memory location 8192 and a 
multicolor MOB beginning at memory location 8256. The high-resolu- 
tion MOB is a cluster of three stars. The multicolor MOB is a spiral gal- 
axy, which will be displayed in three colors. The sprites will be dis- 
played on a dark gray screen having a black border. The multicolor 
MOB will not look like a spiral in the design grid. Since the 12 by 21 dot 
grid is rather limiting, a later command will be used to enlarge this 
sprite horizontally. 

Clear computer memory. For automatic line numbering with the fol- 
lowing program, use AUTO 166,10. In order to simplify entering the @ 
statements, a guide to entering these statements is shown to the right of 
the program statements. This keying in procedure was described in the 
section introduction, under Key to Entering Program Listings, page 
188. The Simons’ BASIC commands illustrated are shown to the left of 
the program listing. 


Commands 
Illustrated Program Statements Entry Guide 


196 PRINT '"'[CLEAR]"' 
COLOUR 118 COLOUR 9,11 
DESIGN 128 DESIGN 89,8192 
a G50) Ost cio at eecs ence. Bi.5') 28, By 5 
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a NGOS Moccesvinescee wane B.6.8.;. 16,829 

a TOR Oi isi wacsaeeise cies BEG. sc AP BS ce 

a TOR Ricci sccaeedawue BBBBBBB .17,B7 

a LEE lene datees ha cm eeenion BOB. 19; Baek 

a TEE Ri ieiivdisaececouny 6.8.8. 318,823 

a bbe al” peer eterna Sakis we Bois Oy Re US 

a COP Re Biveiccccctscdeanense SPR cee 

a 298) BBB Bossi. ib decceen -B3, .18 

a 228: 8: .BBB. is... cc cdeeteneee 08 BSW 

a 2350) @BEBBBBB.. Wo. dseee wes BT u12 

a 248 8..BBB.. 2.2... scccveavece se yBo, ele 

a 259 GOB SB CB. i... cucwanuae ster 166). 76 

a 268 Bo Bo cece cccduweew nes sappy ce 

a CEM Mist ceeswades Bose se elees -13,B, .19 

a COs aid ckhoe as BS BoBo 6s. veee Sa oe SY 

a LID Gia sascbvess BBB... see heeds <F 

a SUM Biscisesens BBBBBBB....... oie, br, Tt 

a SUG Bes isan cae sen BBS Siiaiscs ot Ry 9 

a SEM Mien neianss BB Bi ccs cane ee 

a oa A a ae a Bieaeen sete «15,8, .18 

DESIGN 348 DESIGN 1,8256 

a 358 Quins. CCBBB.. eae, Co, 3c 

a SO: @...CC....... Po eee 

a STOOL CC sue eas ce, ce, -0 

a SG Oo CO. ect a es A a 

a SVR BGGsessiwesine C2, .18 

a 498 0.CC..BBBBBB. cee y neg POs a 

a 418 @.C..C....... Bite eye gnl 

a 426 ac..C....BBB. Rig-sl, Gps Oe Boys 

a 438 0.C.B...BB... Tee «Bp sop Rey so 
a 446 aC..DDDDD.... Bink, US, «4 

a 458 @.BDDDCCDDCC. Reepes, Co, Oe, Ce,. 
a 468 @.BDDCCCDD.CC FAME OR) Uy bey s) be 
a 478 @..BDDDDD.CC. Gp Be VI, «5 CE, + 

a 488 @B..DD00.BB.CC Dip US sp Oey op GE 
a 498 @BB....BB.CC. Be, 4,06) «9 bes. 
a 598 2.BB.BBB..CC. epee, cperaecrheas 
a 518 @.BBBBB..CC.. sperseeerease 

a FOR Wsvaenss CC... ahi CEs 

a 536 .@...... CC... -6,C2, 4 

a 540 @..... COe eas pH 

a 550 @...BBB...... eee | 
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These statements will not display the sprites. The above statements 
designed two MOBs and allocated memory space for them. The next 
step is to initialize each MOB. 


MOB SET 


This command initializes both high-resolution and multicolor MOBs. 


Statement format: 


MOB SET number,block,color,priority,resolution 


The numbers that you choose for each MOB will determine their 
screen priority over one another. The MOB having the lower number 
has priority. If two or more MOBs are moving and their screen paths 
cross, the lower numbered MOB will pass in front of the higher num- 
bered MOB. Only the numbers 6 through 7 may be used. Remember, 
the maximum number of MOBs that may be displayed at one time is 
eight. If a number higher than 7 is used, the program either will not run 
properly or will not run at all! In either case, if you try to run the pro- 
gram again or edit the program, the system will “hang.” The only rem- 
edy is to turn off the computer and begin again, hopefully by reloading 
the program and correcting the MOB number before running the pro- 
gram. 

The block parameter designates the memory block from which the 
MOB design data will be taken. This is the block number of the starting 
memory location specified in the MOB’s DESIGN statement. If a block 
number greater than 255 is used, an ILLEGAL QUANTITY ERROR 
will be given. However, if an incorrect block number is used, no error 
message is given but the MOB will be distorted. The block numbers 
and their memory locations are shown in Figure 19.7, pages 204-206, at 
the end of this chapter. 

The color parameter specifies the color for a high-resolution MOB— 
the B dots of the design grid. For a multicolor sprite, the color parame- 
ter designates color 3—the C dots of the design grid. (Colors 1 and 2 of a 
multicolor sprite are designated in the CMOB command, which will be 
reviewed next.) The Commodore colors are shown in Figure 13.1, page 
108. 

The priority parameter designates whether screen data has priority 
over MOBs. If MOBs have priority, they pass OVER screen data. If 
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screen data has priority, MOBs pass UNDER the screen data. This, of 
course, means that the MOB will be partially or fully hidden when pass- 
ing. The number @ specifies MOB priority, and the number 1 specifies 
screen data priority. 

The resolution command specifies whether the MOB is high resolu- 
tion or multicolor. The number @ indicates high resolution, and the 
number 1 indicates multicolor. This is the same parameter used in the 
DESIGN command. 

The following two statements will initialize the two MOBs in the 
demonstration program. Line 560 initializes the high-resolution MOB— 
a cluster of three white stars. This MOB will have priority over the mul- 
ticolor MOB—a spiral galaxy, but neither MOB will have priority over 
screen data. The multicolor MOB is initialized in line 570. 

Enter the following statements. The Simons’ BASIC commands illus- 
trated are shown to the left of the program statements. 


Command Illustrated Program Statements 


MOB SET 568 MOB SET 9,128,1,1,9 
MOB SET 570 MOB SET: Tei29,7,1,1 


The MOB color for high-resolution MOBs is specified only in the 
MOB SET statement. Only color C of the multicolor MOB—in this pro- 
gram the core and portions of the spirals—is specified in MOB SET. 
Color C will use yellow. The two additional colors available to multi- 
color MOBs must be set in a second statement. 


CMOB 


This statement specifies the two additional colors available to multi- 
color MOBs. 


Statement format: 


CMOB color B, color D 


If this statement is not used—even though colors B and D were used 
in the design grid—no error message will be given. But the pixels coded 
B will not be displayed in the desired color, and the pixels coded D will 
be off. (In this program, purple was used for color B and the pixels 
coded D were off when the CMOB statement was not used.) 
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Now we are ready to display the MOBs. Add the following CMOB 
statement to the program in memory to color the rest of the spiral. 


ENTER: 588 CMOB 15,18 


The pixels coded B—portions of the spiral—will be displayed in light 
gray, and the pixels coded D—those surrounding the core—will be dis- 
played in light red. 

The sprites still cannot be displayed without one more statement. If 
the program is run now, only a dark gray screen (specified in the 
COLOUR statement) will be displayed. 


MMOB 


This is the command used to display a MOB. The MOB may be sta- 
tionary or moved on the screen at a user-specified speed. A MOB may 
also be expanded in size—either in width, height, or both. 


Statement format: 


MMOB number,x,y,x1,y1,expansion,speed 


The MOB number is the same number that was used in the MOB SET 
command to initialize the sprite. 

As always, the parameters x and y specify the starting column and 
row coordinates, with x specifying column and y specifying row. This 
is the location that will be used for the first display of the MOB. The top 
left corner of the MOB will begin at this starting location. The top left 
corner is the first pixel—whether that pixel is on (B, C, or D) or off (a 
period)—in the design grid. The parameters x1 and y1 specify the col- 
umn and row respectively to which the MOB will be moved. Again, the 
top left corner of the MOB will appear at this location. To specify a sta- 
tionary MOB, simply use the same locations for both x,y and x1,y1. 

The bit-mapped screen used by sprites is identical in pixel size to the 
high-resolution screen that you have already used, that is, 320 columns 
by 200 rows. However, the beginning and ending column and row 
numbers change. The columns are numbered 24 through 343, and the 
rows 50 through 249. The first off-screen positions are 344 horizontally, 
and 250 vertically. As an aide to correctly positioning’ MOBs, this 
screen configuration is shown below in Figure 19.1. 


19 Creating and Using Sprites < 197 


SPRITE SCREEN 
COLUMNS 


Bit Mapped 
Low Resolution 


24 64 104 144 184 224 264 304 «343 


8 Se a oe eae tt ee 2 
BEPARARSTCHRE RCA LHASA PRRSROCCBSRTH RRS 
ae RROGSRSSHRHHOATERHRRRBBOBe 


90 
R 
130 
0 
W 
170 -+4 
S 
210 
a 
SHB aSh 
Att 
249 Seeneee 


Bit Mapped 
Low Resolution 


Figure 19.1. Sprite Screen Grid—columns and rows numbered. 
The expansion parameter specifies the desired display size of the 


MOB. The expansion numbers used for this parameter, and the result- 
ing display size, are shown below. 


Expansion Number Display Size 


0 Normal size—as created on the design 
grid—24 dots by 21 dots. 

1 Twice the width displayed on the design 
grid, but the same height—48 dots by 21 
dots. 

2 Normal width, but twice the height dis- 
played on the design grid—24 dots by 42 
dots. 

3 Twice the width and height displayed on 


the design grid—48 dots by 42 dots. 


Figure 19.2. 


198 »& VII Sprite Graphics 


In positioning an expanded MOB, this size difference must be part of 
the calculation for specifying the MOB locations. For your conven- 
ience, the corner locations for a MOB to be shown fully on the screen 
are illustrated below on screen grids—one for each expansion parame- 
ter—in Figures 19.3-19.6. 


SPRITE SCREEN 


COLUMNS 


Bit Mapped 
Low Resolution 


nozon”ar 


Y=229 
249 


X=24. 47 


%=320 


Bit Mapped 
Low Resolution 


Figure 19.3. Corner screen locations for MOB expansion size 6. 


As shown on the following grids, a screen location adjustment of 21 
pixels is required for a MOB expanded in height, and 24 pixels for a 
MOB expanded in width. Because MOB location is specified using the 
top left corner of a MOB, corner positioning for expanded height 
requires adjustment of the y1 (ending row) parameter, while expanded 
width requires adjustment of the parameters x or x1 (column locations) 
for the left edge of the screen. 

The location used to move any size MOB fully off the screen at the 
top, bottom, and right side is the same. However, only a MOB of nor- 
mal width—expansion sizes @ and 2—can be moved fully off the left 
side of the screen. The column or row parameters used are shown 
on page 200, following Figure 19.6. 
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SPRITE SCREEN 


COLUMNS 
Bit Mapped ‘ 
Low Resolution y=50 Y=50 
ae 70 
90 
R 
130 
0 
Ww 
170 
Ss 
210 
¥=229 Liat 
vil 249 
343 
x=24 71 X=296 
Bit Mapped 
Low Resolution 
Figure 19.4. Corner screen locations for MOB expansion size 1. 
SPRITE SCREEN 
COLUMNS 
Bit Mapped Kea is? 
Low Resolution y=50 Y=50 
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R 
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X=24 47 X=320 
Bit Mapped 
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Figure 19.5. Corner screen locations for MOB expansion size 2. 


ST 


Serco 


200 © VII Sprite Graphics 


SPRITE SCREEN 


COLUMNS 


Bit Mapped 
Low Resolution Y=50 Y=50 
91 91 
R 
130 
0 
Ww 
170 
S 
Y=208 Y=208 
249 249 


x=24 a %=296 


Bit Mapped 
Low Resolution 


Figure 19.6. Corner screen locations for MOB expansion size 3. 


¢ @ for the column parameter to move a normal width MOB off the left side 
of the screen. MOBs expanded in width—expansion 1 and 3—cannot be 
moved fully off the left side of the screen. 

¢ 344 for the column parameter to move off the right side of the screen. 

¢ @ for the row parameter to move off the top of the screen. 

© 250 for the row parameter to move off the bottom of the screen. 


The speed parameter specifies the speed at which the MOB will move 
from x,y to x1,y1. Speed is designated by the numbers 1 through 255, 
with 1 used for the fastest speed and 255 used for the slowest speed. 
The speed parameter must always be used, even though the sprite is to 
remain stationary. If no movement is required, the number used does 
not matter as long as it is in the range 1-255. 

Let’s finally display and move sprites! As you will see, sprite move- 
ment is very smooth. Add the following MMOB statements to the pro- 
gram in memory. 


ENTER: 598 MMOB 1,178,158,178,158,1,255 
69% MMOB 9,8,0,240,200,0,200 
619 MMOB 9,288,200,9,0,0,100 
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MOB 1—the spiral galaxy—will be displayed at twice the normal width 
and remain stationary in the center of the screen (line 590), while MOB 
6—the star cluster—will provide the movement. Line 600 will send the 
star cluster diagonally across the screen from the upper left-hand cor- 
ner, passing in front of the spiral galaxy, to the bottom right side of the 
screen. The MOB will be displayed at normal size and travel at a speed 
of 200. Line 610 will send the star cluster back along the path traveled 
in the previous statement, at twice the speed of the first movement, and 
off the screen. 

RUN the program. Press the RUN/STOP and RESTORE keys to re- 
turn to the normal screen. 

The next command is used to relocate a displayed MOB. 


RLOCMOB 


This command enables you to move an on-screen MOB to new screen 
location. The current MOB location is not required. 


Statement format: 


RLOCMOB number, x1,y1,expansion,speed 


All of these parameters are the same as those used in the MMOB 
command. As in the MMOB command, the parameters x1 and y1 are 
the column and row coordinates for the location to which the MOB will 
be moved. 

Add the following statement to the program in memory to move the 
spiral galaxy from its current location to the bottom left-hand corner of 
the screen. 


ENTER: 628 RLOCMOB 1,24,229,1,88 


RUN the program again and press the RUN/STOP and RESTORE 
keys to return to the normal screen. 
On to collisions! 


DETECT 


If collision detection is used, this command must be used twice. Its 
first use will clear the sprite control register, so that the second use can 
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initialize collision detection. DETECT handles two types of collisions: 
sprite to sprite collision, and sprite and screen data collision. 


Statement format: 


For sprite to sprite collisions: DETECT 0 
For sprite and screen data collisions: DETECT 1 


Add the first DETECT statement to clear the sprite control register, 
as shown below. 


ENTER: 638 DETECT 8 


On to collision testing. 


CHECK 


This command is used for collision testing either between two MOBs 
or between a MOB and screen data. 


Command format 
Collision test for two sprites: 


IF CHECK(MOB number, MOB number) = 0 THEN state- 
ment(s) 


The MOB numbers are the only parameters used by CHECK for 
sprite collision detection. The MOB numbers specified here are the 
same numbers that were used to identify each of the sprites when they 
were initialized. Only a collision between the two sprites specified will 
be detected. A collision is detected when an “on” pixel of one of the 
sprites specified overlaps an “‘on’” pixel of the other sprite specified. 


Collision test for sprite and screen data: 


IF CHECK(0) = 6 THEN statement(s) 


The zero parameter of CHECK initiates collision detection between 
any sprite and screen data. A collision is detected when an ‘‘on’’ pixel 
of any sprite overlaps a character on the screen. 
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MOB OFF 


This command clears the specified MOB from the screen. 


Statement format: 


MOB OFF number 


The parameter number specifies the number of the MOB to be re- 
moved from the screen. 

Add the following statements to the program in memory to cause and 
detect a collision between the two sprites, and remove sprite @—the star 
cluster—from the screen. You may use AUTO 640,10 for automatic line 
numbering. The Simons’ BASIC commands illustrated are shown to the 
left of the program statement in which they occur. 


Command Illustrated Program Statements 
648 FOR I=1 TO 18 


658 X=X+18 

DETECT and CHECK 668 DETECT O:IF CHECK(8,1)=8 
THEN 788 

RLOCMOB 678 RLOCMOB 9,24,50+X,0,19 

RLOCMOB 688 RLOCMOB 1,24,229-X,1,19 
698 NEXT I 

MOB OFF 70% MOB OFF ®O 

PRINT AT 719 PRINT AT(18,18)'"'GALAXY 
RULER" 

RLOCMOB 728 RLOCMOB 1,280,120,1,88 


Text has been added to the screen display using the PRINT AT state- 
ment—a low resolution statement. The high-resolution TEXT statement 
is not used in this program because the program is being run on a low- 
resolution screen. The spiral galaxy—MOB 1—will pass behind this 
screen data, as specified in the priority parameter of the MOB SET 
statement. 

RUN the program and press the RUN/STOP and RESTORE key to 
return to the normal screen. 

Any number of low-resolution screen statements—in addition to the 
PRINT AT statement—may be added to this program. This includes all 
of the statements reviewed in Sections I through IV of this book. For 
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example, the user-defined characters reviewed in Chapter 14 can be 
used to produce interesting effects when combined with sprites on a 
low-resolution screen. 

If you are not going on to the next chapter immediately, SAVE this 
program. It will be used again in the next chapter to demonstrate the 
use of sprites with plotting graphics on a high-resolution screen. 


Starting Starting 

Block Memory Block Memory 

Numbers Locations Numbers Locations 
128 8192 155 9920 
129 8256 156 9984' 
130 8320 157 10048 
131 8384 158 10112 
132 8448 159 10176 
133 8512 160 10240 
134 8576 161 10304 
138 8640 162 10368 
136 8704 163 10432 
137 8768 164 10496 
138 8832 165 10560 
139 8896 166 10624 
140 8960 167 10688 
141 9024 168 10752 
142 9088 169 10816 
143 9152 170 10880 
144 9216 171 10944 
145 9280 172 1106/8 
146 9344 173, 11072 
147 9408 174 11136 
148 9472 175 11200 
149 9536 176 11264 
150 9600 177 11328 
151 9664 178 11392 
152 : 9728 179 11456 
153 9792 180 11520 
1545. = 9856 181 11584 


Figure 19.7. Table of Block Numbers and Starting Memory Locations for 
MOBS 


eo 
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Starting Starting 

Block Memory Block Memory 

Numbers Locations Numbers Locations 
182 11648 216 13824 
183 11742 227. 13888 
184 11776 218 13952 
185 11840 219 14016 
186 11904 220 14080 
187 11968 221 14144 
188 12032 222 14208 
189 12096 223 13272 
190 12160 224 14336 
191 12224 225 14400 
192 12288 226 14464 
193 12352 227 14528 
194 12416 228 14592 
195 12480 229)\° 14656 
196 12544 230 14720 
197 12608 231 14784 
198 12672 232 14848 
199 12736 233 14912 
200 12800 234 14976 
201 12864 235 15040 
202 12928 236 15104 
203 12992 257 15168 
204 13056 238 15232 
205 13120 239 15296 
206 13184 240 15360 
207 13248 241 15424 
208 13312 242 15488 
209 13376 243 15552 
210 13440 244 15616 
ahi 13504 245 15680 
212 13568 246 15744 
213 13632 247 15808 
214 13696 248 15872 
215 13760 249 15936 


Figure 19.7. Table of Block Numbers and Starting Memory Locations for 
MOBS—cont. 


206 » VII Sprite Graphics 


Starting Starting 
Block Memory Block Memory 
Numbers Locations Numbers Locations 
250 16000 253 16192 
251 16064 254 16256 
202 16128 255 16320 


Figure 19.7. Table of Block Numbers and Starting Memory Locations for 
MOBS 


Sprites on a 
High-Resolution 
or Multicolor 
Screen 


Sprites may also be used on high-resolution and multicolor screens, 
giving you the ability to include sprites with plotting graphics. For both 
of these screen configurations, MOB design data is stored in a different 
portion of memory than is used for sprites on a low-resolution screen. 
This changes both the memory address used in the DESIGN statement 
and the associated block number used in the MOB SET statement. 
When using both high-resolution and multicolor MOBs on either of 
these screen types, a specific placement of the MOB statements within 
the program is required. 


DESIGN and MOB SET Statements 


In order to access a graphic screen, the MOB design data is stored in 
a different portion of RAM. This is done by adding a graphic-constant 
value to a low address in the normal BASIC program space. 

The block numbers and associated memory locations used on a high- 
resolution or multicolor screen are: 


Block Numbers Memory Locations 
32-63 2048-4032 


207 
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The graphic constant—$C000 in hexadecimal or 49152 in decimal— 
added to these memory locations moves the MOB data out of the way of 
the BASIC program space. The DESIGN statement used with high-reso- 
lution and multicolor screens is shown below. 


Statement format: 


DESIGN resolution,starting memory location + graphic con- 
stant value 


Because of the addition of a graphic constant value of decimal 49152 
or $C660 in hexadecimal, the lowest memory location used for MOB 
data when using a graphic screen will be 51200. This then eliminates 
the problem of memory limitations on your BASIC program, explained 
on pages 190-191. The memory that was unavailable to your program 
when using a low resolution screen is now available again. 

The MOB SET parameters do not change. Only the block number 
used changes. The graphic constant value is not added to the block 
number. 


Statement Order 


When displaying only high-resolution MOBs on a high-resolution 
screen, the order of the graphic statements and the MOB statements is 
unimportant. That is, the graphic statements may precede and/or fol- 
low the MOB statements. The same is true when using only multicolor 
sprites and graphics on a multicolor screen. 

However, to display both high-resolution and multicolor sprites on 
either a high-resolution or multicolor screen, the graphic statements— 
whether high-resolution or multicolor—must precede the first DESIGN 
statement. If they follow the first DESIGN statement, no error message 
will be given, but the MOBs will not be recognizable. 

The use of high-resolution graphic statements and both a high-resolu- 
tion and a multicolor sprite will be demonstrated by editing the pro- 
gram from the previous chapter. First, the DESIGN and MOB SET 
statements must be changed for use on a high-resolution screen. EDIT 
or ENTER the following statement lines. 


128 DESIGN 8,32%64+49152 
348 DESIGN 1,33*64+$COBB 
568 MOB SET 8,32,1,1,98 
578 MOB SET 1,33,7,9,1 


eRe 
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The DESIGN statements (120 and 340) calculate the decimal starting 
location by multiplying the block number by the number of bytes per 
block. The first DESIGN statement uses the graphic constant in deci- 
mal form, and the second uses the graphic constant in hexadecimal 
form. Note that the priority of MOB 1 over screen data was changed in 
its MOB SET statement (the fourth parameter, line 570) giving the spi- 
ral galaxy priority over screen data. This sprite will now pass over all 
screen data, including the high-resolution graphics. 

The following statements will add high-resolution plotting to create a 
quarter moon and sun as additional screen graphics before initializing 
or displaying the MOBs. 


ENTER: 112 HIRES 7,11 
114 ARC 88,148,110,8,1,16%1.4,16,1 
116 ARC 98,135,145,320,1,16,14,1 
117 PAINT 76,138,1 
118 CIRCLE 258,58,20%*1.4,20,1 
119 PAINT 258,58,1 


In order for the program to run correctly, one more statement must 
be changed and two statements added. 

The PRINT AT statement used on low-resolution screens must be 
replaced by the high-resolution TEXT statement, so that the text and 
the MOB remain on the screen at the same time. If the PRINT AT state- 
ment was used, the MOB would be removed from the screen before the 
text was printed because of changing screen types. (The statements 
needing a bit-mapped screen—lines 720 through 74¢—would be exe- 
cuted, then the system would return to a low-resolution screen to per- 
form the PRINT AT statement—line 710.) 

And last, the MOB must be cleared off the screen before the program 
ends to avoid having a distorted MOB displayed on the final screen. 
The distortion is caused by the screen type reverting to normal—low 
resolution—when the program ends. 

To change the text, view the final screen display for two seconds, and 
clear the sprite from the screen, add the following statements to the 
program in memory. 


ENTER: 718 TEXT 88,88,""GALAXY RULER",1,1,8 
73® PAUSE 2 
748 RLOCMOB 1,344,128,1,88 


RUN the program. 
The following are important facts to remember when adding sprites 
to a high-resolution or multicolor screen. 
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_ 1. When you switch from a high-resolution or multicolor screen to the nor- 
mal low-resolution screen, the sprites cannot be displayed correctly 
because bit-mapping is not available. This means that you must think of 
the program statements used in the context of their screen type. 

2. When using both high-resolution and multicolor sprites on either a high- 
resolution or multicolor screen, all high-resolution or multicolor state- 
ments must precede the first DESIGN statement. 

3. When structuring your program, be aware of the screen type used by 
each of the program statements, so that inadvertent switching between 
screen types does not distort or remove sprites. 

4. The HIRES statement and/or the HIRES and MULTI statements are 
only used for HIRES or MULTI graphics, respectively. These statements 
do not affect MOBs—either high-resolution or multicolor. Therefore, dif- 
ferent colors may be specified for the graphic statements than those 
specified for MOBs. 


Another Programming Option 


GRAPHICS holds the decimal constant 53248, the start address of the 
Video Interface Chip (VIC-II chip). Therefore, for those of you who 
wish to POKE video chip locations, GRAPHICS plus an offset may be 
used. For example, to position sprite 0 use GRAPHICS as the x position 
register and GRAPHICS+1 as the y position register. 

Since memory locations used for a MOB on a high-resolution screen 
end at the start of the VIC-II chip,GRAPHICS minus 64 or a multiple of 
64 may be used in the DESIGN statement in place of memory location 
plus the graphics constant value of 49152. For example, in the current 
program DESIGN 0, GRAPHICS-64 and MOB SET 0,63,1,1,0 would 
replace lines 120 and 560, and DESIGN 1,GRAPHICS-(64+2) and MOB 
SET 1,62,7,0,1 would replace lines 340 and 570 
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Simons 
Sounds 


Introduction 


Simons’ BASIC provides the same ease of use for the Commodore 
64’s music synthesizing capabilities that it provides for the creation of 
sprites. This section, like the previous section on sprites, is written to 
be easily understood by the Commodore BASIC programmer who has 
not used the POKEs of Commodore BASIC to produce sound. Those of 
you who have used the capabilities of the SID (Sound Interface Device) 
chip with Commodore BASIC know that it is capable of producing a 
wide variety of sounds—but at a great expense of programming effort. 
Rather than your having to POKE SID memory registers, Simons’ 
BASIC will POKE for you! The only exception is two POKEs for pulse 
width for use with the pulse waveform. And even this is made easy by 
providing the SOUND function which holds the decimal address used 
in the POKES. For both the newcomer to music and the knowledgeable 
sound user, Simons’ BASIC will eliminate much tedious programming. 

By the end of Chapter 21, you will at the very least be able to use the 
music commands to produce music and sound effects at an elemental 
level. For those of you who wish to take your Commodore 64 musical 
experience further, I must refer you to the works of others who are 
more experienced in this field. The Nov/Dec issue of Commodore 
Microcomputers magazine contains five excellent articles both on using 
the Commodore 64’s sound capabilities using Commodore BASIC 
(there before Simons’ sound), and additional music software available 
for the Commodore 64—making further use of SID. If you’re a Commo- 
dore 64 owner and not currently a subscriber to this excellent maga- 
zine—unbelievable—you should get this back issue when you sign-up 
for a subscription. 
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I feel that it will be helpful to those of you with limited musical 
knowledge to begin the review of Simons’ Sounds with some basic 
music facts. Those of you who are knowledgeable musicians will proba- 
bly want to skip this information. 


Basic Music Facts 
Musical terms and their meanings: 


® Volume refers to loudness. 

® Pitch is how high or low a note is, that is, its location on the scale and the 
octave in which the note is played. 

® Note refers to each single musical tone. Notes are named for the letters of 
the alphabet—ABCDEFG. Every note occurs at higher and lower pitches 
(higher and lower octaves), repeating the notes over and over. 

© A sharp (#) makes the pitch of a note a half step higher, for example, on a 
piano a white key to a black key. 

© A flat (b) makes the pitch of a note a half step lower. 

© Octave is group of eight notes, going up or down from the same note—C 
to C, D to D, E to E, etc. The last note sounds the same as the first, but is 
higher or lower in pitch since it is the first note in the next octave—up or 
down. 


This information should be helpful to your understanding of the 
sound commands reviewed in the following chapter. A brief overview 
of each of these Simons’ BASIC commands follows. 


Chapter 21 


VOL allows you to preset the volume at which the music or sound 
will be played. 

WAVE specifies which of the three Commodore 64 ‘‘voices’’ is to be 
used, and sets the music voice type. The four available waveforms—tri- 
angle, sawtooth, pulse, and noise—are defined so that you can antici- 
pate the type of sound that each generates. 

SOUND assists in entering the pulse width for the pulse waveform. 

ENVELOPE defines the “shape,” or cycle, of the sound. An introduc- 
tion to the characteristics of sound vibrations and frequencies is cov- 
ered as a necessary element to understanding this command. Attack, 
Delay, Sustain, and Release are the ENVELOPE parameters that 
denote the cycle—‘‘shape”— of sound. This cycle controls the volume 
of the sound as it changes with time—from when the sound begins until 
it fades to its end. 

MUSIC specifies the notes to be generated to create the music or 
sound effects. 
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-PLAY let’s the music begin. The music can either be played while the 
rest of your program continues to execute or cause the program to 
pause while the music is played. PLAY can also turn sound off. 


Key to Entering Program Listings 


MUSIC character strings will be entered as: note (shown by a letter), 
octave number, function key number. There are no spaces between 
these entries. The function key number is shown by a lower case f, fol- 
lowed by the function key number, for example, f5, means to press 
function key 5. 


Programming 
Music and 
Sound 


Each of the sound commands—VOL, WAVE, ENVELOPE, MUSIC, 
and PLAY—must be used together in order to generate music or sound 
effects on your Commodore 64. The SOUND command will make the 
two POKE’s, necessary only for the pulse waveform, easy to enter. To 
wet your appetite for Commodore music, this chapter begins with a 
short demonstration program introducing the group of commands as a 
whole. So get ready for Music! Music! Music! played in the fourth 
octave. 

The purpose of each command is listed to the left of the program line 
in which it occurs. As stated in the introduction to this section, the 
function keys will be designated by a lower case f followed by the func- 
tion key number. 


Command Function Program Listing 


18 PRINT ''CCLEAR]"' 
Sets the volume at which 2@ VOL 15 
the music will be played. 
Sets the voice number and 38 WAVE 1,08198009 
voice type 
Defines the shape of the 48 ENVELOPE 1,5,11,19,19 


sound 
Prints the name of the 5@ PRINT "'TRIANGLE 
waveform used, and pauses WAVEFORM'': PAUSE 2 


two seconds. 
Uses two character strings, 68 A$=""[CLR/HOME]1G4f5 
to specify the notes to be A4F5G4F5A4F5G4FA4F5 
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Command Function Program Listing 

generated. G4F7E4FSF4F5SE4FSF4F5 
E4fSF4f5E4F7D4F5E4F5 
D4f5E4f5" 

78 A1S="D4F5E4F5D4F5E4F5 

D4F5C4F504F5C4F5D04F5 
C4f7(CLR/HOMEJG" 

Sets music speed and 8@ MUSIC 8,AS+A1$ 

enters the music. 

Initiates sound, as 9@ PLAY 1 


specified by the WAVE, 
ENVELOPE, and MUSIC 
commands 
198 END 


RUN the program. 

Now that you have heard Simons’ BASIC access the Commodore 64’s 
voice, we’ll take a careful look at each of the music commands. 

Note: If you are not continuing on in this chapter, SAVE this demon- 
stration program. It will be edited to demonstrate other music 
commands. 


VOL 


As the name appropriately states, VOL specifies the volume level 
(loudness) at which the music or sound following this command will be 
played. The level of volume specified will not change unless the VOL 
command is reused in the same program to specify a new volume. 


Statement format: 


VOL sound level value 


The sole parameter, sound level value, allows a range of @-15. The 
number 15 designates the loudest volume, with the volume decreasing 
as you count down to 1. A value of @ turns the sound off. The decrease 
in volume is very gradual, without a noticeable decrease between 15 
and 7. 

If the value given is less than zero, the program will end with an 
ILLEGAL QUANTITY ERROR. However, no error message is given for 
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a value greater than 15, until the value exceeds 255. Only then is an 
ILLEGAL QUANTITY ERROR generated. Using values having the first 
two digits of 16 will generate no sound at all. Numbers greater than 16 
but less than 255 will generate sound by using the first digit of two-digit 
numbers greater than 16 and the first two digits of three digit numbers 
between 100 and 159. A number greater than 159 will generate the 
loudest volume, no matter what that number is. This lack of upper-limit 
checking by Simons’ BASIC means that you must be careful not to use 
a value greater than 15. 

The following changes to the program in memory will demonstrate 
eight levels of volume, beginning with 15—the loudest volume—and 
decreasing by steps of two sound levels. The program will end with 1— 
the lowest volume. The volume used for each repetition of the music 
will be displayed on the screen immediately before the music begins. 
You will notice that the decrease in volume is very gradual. This dem- 
onstration will give you a good idea of “how loud/how soft” a volume 
each value represents. This would also be a good time to adjust the vol- 
ume of your monitor! 


Enter the following program changes. 


5 N=15 

85 VOL N:PRINT ''VOLUME'';N 
198 N=N-2:1F N<@ THEN END 
118 PAUSE 1:G0TO 85 


Volume level is checked in line 100 to avoid a negative value and an 
ILLEGAL QUANTITY ERROR. 

If you would rather hear a shorter piece of music for this demonstra- 
tion, list the program and edit the MUSIC statement, as shown below, 
to play the major scale—do, re, mi, fa, sol, la, ti, do—rather than Music! 
Music! Music! Since the edited MUSIC command does not use the 
music character strings A$ and A1$, they will simply be ignored. How- 
ever, do not remove these statements (lines 60 and 70) because they will 
be used again in a later program. 


88 MUSIC 8,''[CLEAR]1C4f5D4f5E4f5F4F5 
G4F5A4F5B4F5C3 F5(CLEARIG" 


RUN the program for a demonstration of volume levels. 

After you have finished the volume demonstration, remove lines 5, 
85, 166, and 116. If you edited line 80 to play the major scale, list the 
program and change this statement back to its original form to play 
Music! Music! Music! as shown below. 
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88 MUSIC 8,AS+A1$ 


This would also be a good time to edit the program to produce the 
volume of your choice. 


Waveforms 


Now, if you are not a musician, you must increase your knowledge of 
the form in which music—or sound—occurs. This means knowing a bit 
about waveforms before tackling the WAVE command. Waveforms are 
simply different types of sound waves. Each type of sound wave, 
because of its particular shape, produces a different effect, as each 
musical instrument produces a different sound even though they are all 
playing the same notes. Each of the four Simons’ BASIC waveforms are 
illustrated in Figure 21.1. 


TRIANGLE (16) 


SAWTOOTH (32) 


PULSE (64) 


NOISE (128) 


Figure 21.1: Simons’ BASIC Waveforms. 


The triangle waveform is the simplest and purest of the four. It has a 
mellow, flute-like quality. This wave is smoothly produced by a gradual 
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increase followed by a gradual decrease in amplitude (loudness). The 
only abrupt change is at the top of the wave. 

The sawtooth waveform is rich in harmonics and has a bright, brassy 
sound. It smoothly rises from minimum to maximum amplitude the 
same as the triangular waveform. However, then the comparison ends. 
While the triangular waveform makes a gradual descent in value, the 
sawtooth waveform drops abruptly in amplitude back to its minimum 
value. This causes its richer sound. 

The pulse waveform, a rectangular wave, can produce many sounds 
by varying the pulse width. A named variation, the pulse/square wave- 
form, produces a sound that is less rich than the sawtooth, but much 
richer than the triangular waveform, and has a “metallic’’ or “reedy” 
sound. 

The noise waveform is used for sound effects. This waveform gener- 
ates many frequencies, creating sound without pitch. 


WAVE 


This command specifies the voice number and the waveform parame- 
ters for that particular voice. The waveform parameter also includes 
the choice of two harmonic structures that can be accessed. They are 
synchronization and ring modulation, which use two voices. These 
advanced techniques will be reviewed at the end of this chapter. 


Statement format: 


WAVE voice number, waveform parameters 


The Commodore 64 has three ‘“‘voices” (oscillators), numbered 1-3. 
Each voice can be used separately or in combination, and two voices 
can either be synchronized to produce complex harmonies, or be com- 
bined to produce ring modulation to create bell or gong sounds and 
special effects. Each voice used must have its own WAVE statement. 

The waveform parameters are specified as a binary number, with 
each digit (bit) representing a separate instruction. Each of the eight 
digits of the binary number must be entered. If you fail to enter all eight 
digits, you will get the error message NOT BINARY CHARACTER. Fig- 
ure 21.2 introduces the function of each of the eight digits, from bit 7 
down through bit 6. The binary number is created by assigning a 0 for a 
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function that is not to be used (turned ‘“‘off’’) and a 1 for a function that 
is to be used (turned ‘‘on’’). 


Waveform Parameter Binary Number Function Table 


S 

Y 

tH——_ WAVEFORMS ———_4 N 

ie 

T M : 

R 

S R 0 0 

i | D N 

W : gv 

N P nf N | t é 

0 u G N A A 

8) u Bi) nf 

cS) $ T 4 g 0 ) 
E E 4 R N N g 


Bit? Bit6 Bit 5 Bit 4 Bit 3 Bit 2 Bit 1 Bit O 
Figure 21.2: Waveform Parameter Binary Number Function Table. 


Note: The test bit—bit 3—and the gate bit—bit O—are always off; that is, 
always use 0. 

The following is a summary of the function of each bit of the wave- 
form parameter binary number. 


Bit 7 A value of 1 initializes the noise waveform. 

Bit 6 A value of 1 initializes the pulse waveform. To generate a pulse wave- 
form, including the pulse/square waveform, the pulse width registers 
must also be set. The additional statements required are reviewed later 
in this chapter. 

Bit 5 A value of 1 initializes the sawtooth waveform. 

Bit 4 A value of 1 initializes the triangular waveform. 

Bit 3 A value of @ should always be used, since this bit—the Test Bit—is not 
used in Simons’ BASIC. 

Bit 2 A value of 1 initializes ring modulation by combining the output 
of two voices. 

Bit 1 A value of 1 initializes synchronization; a note from one voice can 
then be synchronized with a note from another voice. 

Bit @ A value of 0 should always be used since Simons’ BASIC automatically 
sets this bit when the PLAY command is executed. 
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By adding the following statements to the demonstration program, 
the sawtooth waveform and the noise waveform will be added. Each of 
the three waveforms—triangle, sawtooth, and noise—will be used to 
play the notes of Music! Music! Music!. The waveform name will be 
displayed on the screen just prior to its use in the program. _ 


Program Lines 
106 X=X+1 
116 IF X=1 THEN PRINT "SAWTOOTH WAVEFORM'': 
WAVE 1,08199088:GOTO 98 
12@ IF X=2 THEN PRINT "NOISE WAVEFORM": WAVE 
1,19889988:GOTO 96 


This is a valid demonstration of the noise waveform. However, as you 
will hear, this waveform is not used for music! It is used for sound 
effects and normally requires only a few notes — as shown in the exam- 
ple of gun shots in the Simons’ BASIC User Guide. 

RUN the program and listen carefully to the difference between each 
of the three waveforms. If you wish to end the program during the dem- 
onstration of the noise waveform, press the RUN/STOP and RESTORE 
keys. The noise waveform is played last for this purpose! 

The last waveform to be reviewed is the pulse waveform. As pointed 
out earlier, the pulse waveform requires a POKE to set each of the two 
pulse width registers. The POKEs will be familiar to those of you who 
have programmed sound in Commodore BASIC. However, Simons’ 
BASIC does make this somewhat easier, which brings us to a new 
Simons’ BASIC function. 


SOUND Function and the Pulse 
Waveform 


This function holds the decimal constant (54272) equal to the start 
address of the “SID” chip, the sound and music synthesizer inside the 
Commodore 64. If you enter PRINT SOUND, the output will be 54272. 
This function will save you the trouble of remembering, or looking up, 
this address. You simply use SOUND in place of the decimal address. 
When setting pulse width for a pulse waveform, you must POKE the 
value for pulse width into registers 2 and 3. 


The POKEs necessary for a pulse/square waveform are: 
POKE SOUND+3,8:POKE SOUND+2,0 
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SOUND+3 is the address of register 3; the value being entered is 8. 
SOUND +2 is the address of register 2; the value being entered is 0. 

The waveform binary number used in the WAVE command is not 
affected. You simply “turn on” bit 6 to designate the pulse waveform, 
as shown in line 130 below. Enter the following statements to the pro- 
gram in memory to replace the noise waveform with the pulse/square 
waveform. 


128 POKE SOUND+3,8:POKE SOUND+2,9 
130 IF X=2 THEN PRINT ''PULSE/SQUARE 
WAVEFORM'':WAVE 1,818980088:GOTO 98 


RUN the program for a demonstration of the triangle, sawtooth, and 
pulse/square waveforms playing Music! Music! Music!. 

By changing the value in registers 2 and 3, other pulse waveforms can 
be generated. Together these registers specify a 12-bit number for the 
pulse width. The formula for determining pulse width is; PW=Hpw* 
256+Lpw, which is Pulse Width=High pulse width (register 3) «256 + 
Low pulse width (register 2). Register 2 is the low byte of the pulse 
width (0-255), and register 3 is the high four bits (0-15). By using a dif- 
ferent value in the range 0 through 255 for register 2 and/or a different 
value in the range 0-15 for register 3, you will change the pulse width 
and create a different sound quality. For example, the pulse/square 
waveform has a pulse width value of 2048, 8 (Hpw) * 256 + 0 (Lpw) = 
2048 or value of register 3 * 256 + value of register 2. 

To demonstrate the change in the sound generated by varying the 
pulse width, add the following two lines to the demonstration program. 
This time the value of register 3 is 1 and the value of register 2 is 0, for a 
pulse width of 256, 1 * 256 + 0. 


ENTER 148 POKE SOUND+3,1:POKE SOUND+2,9 
158 IF X=3 THEN PRINT "PULSE WAVEFORM 
WITH A PW OF 256'':WAVE 1,091988000:GOTO 90 


RUN the program for a demonstration of four waveforms—triangle, 
sawtooth, pulse/square, and a pulse waveform. 

I’m sure that you will want to experiment with various pulse wave- 
forms of your own. ; 

In addition to waveforms producing a certain quality of sound, the 
parameters of another command—ENVELOPE—determine the ampli- 
tude of a sound as it changes with time. That is, how loud the sound is 
from the moment you hear it, until it can no longer be heard. 
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ENVELOPE 


The ENVELOPE command defines the shape of each of the sounds to 
be generated through its four parameters, known as ADSR. This con- 
trols the rate of the rise and fall and the level of the volume of each 
musical note. Those of you who are familiar with Commodore BASIC 
sound know that this term stands for—attack, decay, sustain, and 
release—the four parameters that control the volume of a sound as it 
changes with time. Attack, delay, and release are units of time, and sus- 
tain is the volume. The ADSR envelope is illustrated in Figure 21.3. 


Figure 21.3: ADSR Envelope. 
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As shown in Figure 21.3, attack is the time during which the sound 
builds from nothing to peak volume. Decay is the time it takes for the 
sound to fall from peak volume to the sustain level. Release is the time 
it takes for the sound to decrease from the sustain level to silence. Sus- 
tain is the volume level at which the note will be held for most of its 
duration—the mid-range volume. 


Statement format: 


ENVELOPE voice number, attack, decay, sustain volume, 
release 


The voice number parameter is the same parameter used for the 
WAVE command. Voice 1, 2, or 3 must be specified. You must have 
both a WAVE and an ENVELOPE command for each voice, except 
when using two voices for either ring modulation or synchronization. 

The parameters attack, decay, and release are measured in units of 
one-thousandths of a second—a millisecond (ms). This time duration 
designates the length of time each of these functions is to be performed. 
As shown in Figure 21.4, the values 0-15 each designate a specific time 
duration in milliseconds. For attack rate, a time duration between 2 ms 
and 8000 ms may be specified. A time duration between 6 ms and 
24000 ms may be specified for both decay and release rate. 


Time Value Attack Rate (ms) Decay or Release Rate (ms) 


0 2 6 
1 8 24 
2 16 48 
3 24 72 
4 38 114 
5 56 168 
6 68 204 
i 80 240 
8 100 300 
9 250 750 
10 500 1500 
nbs | 800 i 2400 


12 1000 3000 
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Time Value Attack Rate (ms) Decay or Release Rate (ms) 
13 3000 9000 
14 5000 15000 
15 8000 24000 
Figure 21.4. 


The sustain volume parameter uses a value in the range 0-15. This 
value has the same amplification—loudness—as in the VOL command. 
Using a value for sustain volume that is different than the value given 
in the VOL command changes the volume at which each note will be 
played during the sustain period for the voice specified in the voice 
number parameter. 

Clear computer memory. In the demonstration program that follows, 
the tune Cabaret will be played using the triangular waveform with a 
fast attack (16 ms), a medium decay (300 ms), and a slow release (2400 
ms). The volume for sustain will be 10, The Simons’ BASIC commands 
illustrated are shown to the left of the program listing. 


Commands 
Illustrated Program Listing for Cabaret 


18 PRINT "CCLEAR]" 

WAVE | 28 WAVE 1,80189808 

ENVELOPE 3@ ENVELOPE 1,2,8,10,11 
48 AS=""[CLEAR] 1Zf5G4F5A4F7C4F5E4 F564 F7 
[SHIFT GI4F5A4F5G4F5E4F5G4F7ZF3A4F5G4F7 
E4FSG4F7A4F7E4F2ZF5" 
58 A1S=""A4F5CSF7A4F5C5 F7A4F7B4 F564 F7 
E4F2ZF3E4 F564 F7E4F5G4F7A4F7E4F20CLEARIG" 


VOL 68 VOL 8 
MUSIC 7®@ MUSIC 7,A$+A1$ 
PLAY 8@ PLAY 1 

96 END 


RUN the music program. Leave your computer on or SAVE this pro- 
gram. It will be used again later in this chapter. 


MUSIG 


This command provides the music sheet that contains the music or 
sound effect to be played. The note characters correspond as closely as 


call 
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possible to musical notation. Notes are in the range A-G. C is the first 
note in each octave, and the sequence of notes is C, D, E, F, G, A, B. To 
indicate a sharp, that note is entered by pressing SHIFT and the letter 
of that note. Therefore, a B sharp would be entered as [SHIFT] B. To 
play a note flat, the preceding note must be entered as a sharp. For 
example, in entering the major scale—C, D, E, F, G, A, B—to play E flat, 
D must be entered as a sharp—{[SHIFT]D. Music rests are indicated by 
entering the letter Z, and are followed by a function key indicating the 
duration of the rest—the same as for notes. 


Statement format: 
MUSIC beat, music string 


Music string format: 
“{CLR/HOME] voice number note string [CLR/HOME] G” 


Note string format: 
note character, octave number, note duration 


The first parameter specifies the duration of one music beat, provid- 
ing the rhythm of the notes to be played. This value is specified by a 
number in the range 1-255, with 1 specifying the shortest duration and 
255 specifying the longest duration. 

The maximum length of a music string is 255 characters. Music 
strings can be entered as concatenated character strings in order to 
make use of the maximum length. For example: MUSIC 30, 
A$+A1$+A2$ specifies the concatenation of three character strings— 
A$, A1$, A2$—for the music string parameter. 

As specified in the note string format shown above, each note is fol- 
lowed by an octave number and a note duration value. The octave in 
which a note is played is designated by a number 0-8. The duration of 
each note is specified by one of eight function keys, each of which rep- 
resents a specific note duration as shown in Figure 21.5. 
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Note Duration Table 
Function Key Note Duration 

f1 One sixteenth of a beat 
£3 One eighth of a beat 
{5 One quarter of a beat 
£7 Half a beat 
£2 One beat 
£4 Two beats 
6 Four beats 
£8 Eight beats 

Figure 21.5 


Following the last notation—note, octave, note duration—enter 
[CLEAR] G. This causes the release cycle of each note to be triggered. 
Do not forget the G. If you do, the music will play forever—that is, until 
’ you press the RUN/STOP and RESTORE key to end it. 

Rests, indicated by the letter Z and followed by a function key for rest 
duration, may be used anywhere within the note string. 

All notes specified in the MUSIC command are played using the 
parameters specified in the WAVE and ENVELOPE commands for the 
same voice number. 

LIST the program in memory—Cabaret—or LOAD the program now 
to review the MUSIC strings used for playing Cabaret. A$ includes a G 
sharp, indicated by [SHIFT G]. Both music strings contain rests—indi- 
cated by Z—of either one eighth of a beat or one quarter of a beat. After 
studying these entries, you should be able to enter your own music. 
You only need to remember: 


Begin the first music string with [CLEAR] followed by the 
voice number. Thereafter, the entry for each note is: letter of 
the note, octave number, note duration. The final music string 
must end with [CLEAR] and the letter G. 


PLAY 


This is the command that activates the MUSIC, letting the sounds in 
the music strings be executed. 
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Statement format: 


PLAY n 


The parameter n specifies how the music will be played in relation to 
the program as a whole. The values used to designate each function are 
shown in Figure 21.6. 


PLAY Functions 
Number Parameter Function Performed 
0 Turns the music off. 
1 Plays the music, then proceeds with the 
program. 
* 2 Plays the music while continuing to exe- 


cute the program. 
Figure 21.6. 


* PLAY 2 cannot be used in conjunction with high-resolution or multi- 
color graphics. 

The Cabaret music program will now be used to demonstrate the two 
values of the PLAY command that have not yet been used—PLAY 2 and 
PLAY @. Line 80 edits the PLAY statement to continue playing the 
music while executing the rest of the program. The added FOR NEXT 
loop will print the value of I while the music plays. 


ENTER: 88 PLAY 2 
9@ FOR I=1 TO 35@:PRINT "I="; T:NEXT I 


The music will end before the program does, since the music is only 
played through once. RUN the program. 

If the program ends before the music is finished playing, the note that 
is being executed will be held until you stop program execution using 
the RUN/STOP and RESTORE keys. The PLAY command will not be 
turned off by the program ending or by executing PLAY 0. The entire 
music string must be played through once so that the letter G, which 
causes the release cycle of each note to be triggered, can be reached. 
Therefore, there must be a sufficient number of program statements to 
be executed during the playing of the music. To demonstrate this, LIST 
the program, edit line 90 to shorten the loop by changing the upper 
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limit in the FOR statement to 100 and RUN the program again. You will 
have to press the RUN/STOP and RESTORE keys to end the holding 
note. 

To turn the music off, simply replace line 90, as shown below. 


ENTER: 98 PLAY @ 
Now the program will run—silently. RUN the program. 


Advanced Techniques—Ring Modulation 
and Synchronization 


You can create more complex harmonic structures through synchro- 
nization or ring modulation of two voices. 

Ring modulation is created by varying the frequency of one voice 
against a static frequency of a second voice. This combining of the two 
voices produces a wide range of non-harmonic structures for use in 
creating bell or gong sounds and special effects. 

The variable frequency (multiple note) voice must be a triangular 
waveform. This triangular waveform is then replaced by a modulated 
combination of the output of this voice and the voice specified as the 
static frequency (one note) voice. The static frequency voice cannot use 
the noise waveform. As shown in Figure 21.7, the voice number chosen 
to output the variable frequency determines the voice number that 
must be used for the static frequency. 


Ring Modulation Voice Number Table 


Static Frequency Voice 


Variable Frequency Voice ' Use Triangular or 
Use Triangular WAVE Sawtooth WAVE 
1 3 
2 al 
3 2 
Figure 21.7. 


Ring modulation is initialized when bit 2 and the triangle waveform 
are turned on in the WAVE command used by the variable frequency 
voice. The WAVE command binary number would be: 00010100. An 
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ENVELOPE command is only provided for the variable frequency 
voice, since this is the voice that will output the combined sound of the 
two voices. 

The following ring modulation demonstration program produces an 
imitation of a clock chime. Ring modulation replaces the triangle wave- 
form output with a combination of voices 1 and 3. Note C7 of voice 1 
and note B4 of voice 3 are combined. Voice 1 uses the triangle wave- 
form and voice 3 uses the sawtooth waveform. 

Clear computer memory and enter the following program. The 
Simons’ BASIC commands are shown to the left of the program listing. 


Command Format Program Listing 


1@ REM CLOCK CHIME 


VOL 26 VOL 15 
WAVE 38 WAVE 1,09810198 
ENVELOPE 49 ENVELOPE 1,9,9,0,9 
WAVE 58 WAVE 3,98190000 
66 FOR I=1 TO 5 
MUSIC 7®@ MUSIC 20,"'[CLEAR]1C7[CLEAR] 
3B4f3(CLEARIJ1(CLEARICCCLEARI3 
CCLEARJCCCLEAR]" 
PAUSE 88 PAUSE 1 
PLAY 96 PLAY 1 
19@ NEXT I 
11@ END 


RUN the program for a demonstration of clock chimes. 

Voice 1—the variable frequency voice—uses only one note in this par- 
ticular program, but can be used to output multiple notes (as many dif- 
ferent notes as you like). Each note will be combined with the one static 
frequency note. In coding the MUSIC command you must alternate 
each variable frequency note followed by [CLEAR] with the static fre- 
quency note so that they may be properly combined for output through 
the variable frequency voice. For example, in 1C5[(CLEAR]3B4[CLEAR] 
1D6[CLEAR]3B4[CLEAR]1E7[CLEAR]3B4 the variable notes C5, D6, 
and E7 would, each in turn, be combined with the static frequency 
note—B4. You should also end the music string with C[CLEAR] for both 
voices, that is, 1[/CLEAR]C[CLEAR]3[CLEAR]C[CLEAR], to set the con- 
trol byte to zero to stop sound. 

The last technique to be reviewed is synchronization, which plays 


230 © VIII Simons’ Sounds 


multiple notes from one voice synchronized with one steady note from 
a second voice. 

By playing one steady note (static frequency) with one voice and mul- 
tiple notes (variable frequency) with a second voice at the same time, a 
wide range of harmonies can be produced. For the best effect, the one 
steady note of the static frequency voice should be lower than the low- 
est note played by the variable frequency voice. As in ring modulation, 
the voice number chosen to output the variable frequency notes deter- 
mines the voice number that you must specify for the static frequency. 
The static voice used for each variable frequency voice is the same for 
synchronization and for ring modulation, as shown in Figure 21.8. 


Synchronization Voice Number Table 


Variable Frequency Voice Static Frequency Voice 
1 3 
2 i 
3 2 
Figure 21.8. 


Synchronization is initialized when both bit 1 and any waveform bit 
are “on” in the WAVE command of the variable frequency voice. 
Again, an ENVELOPE command is only required for the variable fre- 
quency voice since this voice will output the combined sounds of both 
voices, and the notes are again entered for the two voices in alternat- 
ing fashion. The string should again end by turning off each voice— 
C[CLEAR]. 

The following demonstration program uses synchronization to pro- 
duce the sound of a very annoying mosquito. 

Clear computer memory and enter the following program. The 
Simons’ BASIC commands are shown to the left of the program listing. 


Command Format Program Listing 


1@ REM HUMMING MOSQUITO 


VOL 28 VOL 15 
WAVE 36 WAVE 1,99818810 
ENVELOPE 49 ENVELOPE 1,13,11,15,12 


WAVE 58 WAVE 3,88019800 
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MUSIC 6@ MUSIC 198,"C[CLEAR]1G6[CLEAR] 
3SA4F3(CLEARITCCLEARICCCLEARI3 
CCLEARICCCLEAR]" 
7® FOR I=1 T0 5 

PLAY 80 PLAY 1 

PAUSE 96 PAUSE 1 
19@ NEXT I 
118 END 


RUN the humming mosquito demonstration. 

Needless to say, with the capabilities of the Commodore 64’s SID chip 
and the ease of using the Simons’ BASIC language, the demonstration 
programs in this chapter barely scratch the surface of your computer’s 
musical capabilities. Remember, the SID chip’s greatest value lies in 
creating sounds that cannot easily be made by real instruments. Only a 
great deal of experimentation with these music commands can begin to 
show the multitude of musical possibilities. 

When experimenting with the above humming mosquito program, I 
found that using CLEAR for the two voices and for the two notes gener- 
ated a more realistic humming. The sound fades, rather than ends, 
before the sound is repeated. If you would like to try this, edit the 
MUSIC statement as follows: 


68 MUSIC 188,"CCLEAR]1G6[CLEARI3SA4f3(CLEARJ1(CLEAR] 
GCCLEARIS(CLEARJACCLEARI" 


For those musicians who wish to experiment further, here is another 
tip from David Simons that is not included in your User Guide. For syn- 
chronization, you can use [CLEARJT to toggle (flip-flop) the synchroni- 
zation bit. That is, you can reverse bit 1 from on to off, or from off to 
on. 


Leaving the 
Keyboard 


Introduction 


There are four functions to assist in communicating with your com- 
puter without using the keyboard. All of these will more than likely be 
used by gaming programmers. The JOY function eliminates PEEKing 
for the direction in which the joystick—the most popular of the game 
controllers—is pointing. Similarly, the POT function will give you the 
current rotation of either game paddle. These two video game control- 
lers used to be the ultimate in non-keyboard game playing. Now, of 
course, there’s also the light pen, and David Simons didn’t forget this 
peripheral either! The functions for returning the exact location at 
which the light pen is pointing are PENX and PENY. 

The following is a brief overview of each of these functions. 


Chapter 22 


JOY allows the programmer to access the direction in which the joy- 
stick is pointing and to determine if the fire button has been pressed. 

POT allows the programmer to access the amount of rotation of 
either of two game paddles. 

PENX stores the horizontal location (x coordinate) at which the light 
pen is pointed. 

PENY stores the vertical location (y coordinate) at which the light pen 
is pointed. 


Key to Entering Program Listings 


There are no additional key conventions used in this section. 
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Joystick, Paddle, 
and Light Pen 
Read Functions 


The following is a review of the four read functions supplied for the 
Simons’ BASIC cartridge. 


JOY 


This function returns a value indicating either the current joystick 
position or use of the fire button. 


Function format: 


JOY 


The value returned for each joystick position and for the fire button 
are shown in Figure 22.1. 

The following program will print the value of JOY and name the posi- 
tion in which the joystick is pointing. The first position, of course, will 
be CENTER. There will then be a pause of two seconds before the com- 
puter will ‘read’ another position. You may use AUTO 10,10 for auto- 
matic line numbering. 


ENTER: 19 PRINT '"'CCLEAR]" 
20 X=8 
3@ PRINT JOY, 
46 IF JOY=@ THEN PRINT "'CENTER'':GOTO 148 
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5@ IF JOY=1 THEN PRINT "NORTH": X=JOY: 
GOTO 148 

66 IF JOY=2 THEN PRINT 
"NORTHEAST'':X=JOY:GOTO 148 

76 IF JOY=3 THEN PRINT ''EAST'': X=JOY: 
GOTO 148 

88 IF JOY=4 THEN PRINT 
"SOUTHEAST'':X=JOY:GOTO 148 

96 IF JOY=5 THEN PRINT ''SOUTH'': X=JOY: 
GOTO 148 

198 IF JOY=6 THEN PRINT 
"SOUTHWEST'':X=JOY:GOTO 148 

119 IF JOY=7 THEN PRINT "WEST": X=JOY: 
GOTO 148 

128 IF JOY=8 THEN PRINT 
"NORTHWEST'':X=JOY:GOTO 148 

136 IF JOY=128 THEN PRINT "FIRE BUTTON 
PRESSED" :X=JOY:GOTO 149 

148 PAUSE 2:IF JOY=X GOTO 14@:ELSE: 
GOTO 28 


Before running the program, insert a joystick into control port 2. 
This is the second port from the front on the right side of the computer. 
JOY does not function properly when control port 1 is used. The exam- 
ple program in your Simons’ BASIC User Guide will not run from con- 
trol port 1 either. 

RUN the program. When you’re tired of testing your joystick, hold 
down the RUN/STOP key to end. 

Note: It may be my particular joystick, but I have a problem with pro- 
grams using the joystick “hanging” after being run a few times. The 
only remedy is to turn off the computer. Therefore, I would recom- 
mend saving programs that use a joystick immediately after they are 
written, just in case the joystick problem isn’t mine alone! 
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JOYSTICK VALUES 


NORTH 
NORTHWEST NORTHE AST 
Fire Button Vg 
WEST Hs 
SOUTHWEST SOUTHE AST 


SOUTH 


Figure 22.1: Picture of a joystick, with values noted. 
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POT 


The POT function returns a value in the range 0-255, which indicates 
the current paddle knob rotation. The number @ indicates that the pad- 
dle is turned all the way to the right, and the number 255 indicates com- 
plete rotation to the left. 


Function format for the left paddle: 
POT(@) 


Function format for the right paddle: 
POT(1) 


The following brief program will show you the number position of 
the left paddle as it is rotated. There is a two-second pause between 
paddle rotation value checks. 


ENTER: 1@ REM LEFT PADDLE=POT(@); RIGHT 
— PADDLE=P0T(1) 
28 PRINT POT(®) 
36 PAUSE 2 
48 GOTO 28 


Before running the program, insert your game paddles into control 
port 1. This is the first port from the front on the right side of the com- 
puter. This program does not function properly when using control 
port 2. 

RUN the program. Press the RUN/STOP key to end the program. 

Note: I only get different readings in about the first half of a full 
right-to-left rotation on both paddles. Again, it may only be my paddles! 

For those of you who may not know, a light pen is a hand-held, pen- 
shaped sensor used to point to objects or characters on a video monitor. 
The computer can then be programmed to read the position of this 
beam of light and use this location data in the program’s decision mak- 
ing. Light pen readings tell you the position on the screen—x,y coordi- 
nates—at which the light pen is pointing. | 

A light pen must only be inserted in control port 1. This is the second 
control port from the front, on the right side of the Commodore 64 
computer. 
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PENX 


This function returns the horizontal position—column position—of 
the light beam. That is, the x coordinate. The number returned is in the 
range @-319, since it reads the position using bit mapping. As you 
know, the bit- mapped screen contains 320 positions, 0-319. 


Function format: 


PENX 


The value of PENX must be read before the value of PENY—the y 
coordinate. 


PENY 


This function returns the y coordinate—vertical, or row, position—of 
the light beam. Again, remember that this function is reading the 
screen in bit mapping and so returns a number between @ and 199. The 
bit-mapped screen is 200 pixels from top to bottom. 


Function format: 


PENY 


The value of PENY must be read after the value of PENX is read. 

If you have a light pen or would like to add this tool to your program- 
ming adventures, PENX and PENY will be a great help in incorporating 
it in your programs. You only need to read PENX and PENY to know 
where the program user is pointing, and base you programming deci- 
sions on specific coordinates. 


Simons’ 
BASIC 
Command 
Reference 
Listing 


Appendix A 


USE: C: COMMAND S: STATEMENT F: FUNCTION 


Low-Resolution Mode Commands 


AT(column,row) ‘character string” F 
AT(column,row)string variable name 
This PRINT function positions text at a user-specified screen 
location. 


@ S 
The at sign begins each line of a user-defined character grid. 


AUTO starting line number,increment Cc 
Provides computer-generated line numbers. 


BCKGNDS sc, b1 color,b2 color,b3 color C,S 
Sets the character background color of non-graphic characters. 


BFLASH speed,c1,c2 C,S 
Used to flash the screen border at the specified speed, 
alternating between the two colors specified. Unit of speed is 
in the range 1-255, with each unit representing one-sixteenth 
of a second. 
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BFLASH 6 
Turns the flashing of the screen border off. 


CALL procedure name 
Transfers program control to the named open-ended 
procedure. 


CENTRE “character string” 

CENTREstring variable name 

CENTRE “character string”:PRINT 

CENTREstring variable name:PRINT 
Centers text on a screen line without the user specifying text 
length. 


CGOTO numeric expression 
Used to branch to the line number obtained as a result of the 
evaluation of numeric expression. 


COLD 
Clears memory and returns the system to the start of Simons’ 
BASIC. 


COLOUR border color number,screen color number 
Sets the border and screen colors. 
Note: Commodore colors and their associated numbers are 
shown in Figure 13.1, page 108. 


CSET 6 
Specifies the use of the uppercase/graphics character set. 


CSET 1 
Specifies the use of the upper/lowercase character set. 


DELAY print speed 
Print speed range is 1-255: minimum speed is 1; maximum 
speed is 255. Used with the SHIFT key to control listing speed. 


DESIGN 2,$E666+ character poke code+*8 
Specifies the location of the Commodore character to be 
replaced. 


C,S 


AAA 


C,s 


C,S 
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DIR’’$ 

DIR’’$:character(s)* 

DIR’’$:?character{(s) 

DIR’’$:?character(s)* 
Lists all or specific files of a disk directory. Options are, in the 
order listed above: list all; list using beginning character(s) 
specified; list using specific character(s) in a specific location 
of the filename; and list using a combination of beginning and 
specific location filename characters. 


DISAPA:statements 
Used to specify code to be hidden. 


DISK“‘operation” 
Provides simplified disk entry, eliminating the need to specify 
a logical file number, device number, and secondary address. 


DISPLAY 
Lists the function key assignments. 


DOWNW< starting row,starting column,ending column,ending 
row 
DOWNB starting row,starting column,ending column,ending 
row 

W designates wraparound; B designates blanking. 

Scrolls the specified screen area down. 


DUMP 
Displays the value of all non-array variables. 


DUP(‘‘character string” duplication number) 

DUP(string variable name,duplication number) 
Duplicates the specified character string the designated 
number of times, creating an expanded string. 


END PROC 
The end statement for a closed procedure, functioning the 
same as the RETURN statement used with GOSUB in BASIC. 


EXEC procedure name 
Transfers program control to the named closed procedure. 


C,S 


C,S 
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FCHR row,column,width,depth,character code 
Specifies character to be printed in a specific screen area. 
Note: FCOL must be used with this command. 


FCOL row,column,width,depth,color 
Used to change the print color of characters. 


FETCH “control character’ character limit,variable name 
Limits keyboard input by controlling the type (alphabetic or 
numeric) and number of characters accepted as input. The 
control characters are shown in Figure 8.2, page 63. 


FILL row,column,width,depth,character code,color number 
Fills the specified screen area with the designated character in 
the specified color. 


FINDcode 

FIND “character string” 
Locates and displays the line numbers of each occurrence of 
the specified code or character string. 


FLASH color number 

FLASH color number,speed 
Flashes character background color by alternating between 
normal and reverse field. The range for speed is 1-255, with 
each number representing approximately one-sixteenth of a 
second. Default speed is four seconds. 


GLOBAL 
Used to restore the original values of all variables previously 
defined as LOCAL. 


HRDCPY 
Used to print hard copy of a low-resolution screen on a serial 
printer. 


IF condition THEN statement(s):ELSE:statement(s) 
Used to test both consequences, true and false, of the IF 
condition and address both on the same statement line. 


C,S 


C,S 


C,S 


C,S 
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ON INKEY GOTO statement line list!GOTO line number S 
ON INKEY GOSUB statement line list!:GOTO line number 

Accepts function key input (1-8) as the value of INKEY. 

Note: The GOTO statement is needed to pause the program 

until a function key is pressed. 


INSERT(“‘sub string’’,“‘main string”’,insert position of sub-string) S 
INSERT(string variable name,string variable name,insert 
position of sub-string variable) 

Inserts one character string into another, creating an 

expanded character string. 


INST(‘sub-string”’,“‘main string” insert position of sub-string) S 
INST(string variable name,string variable name,insert position 
of sub-string variable) 

Used to overwrite a portion of a character string (main string) 

with another string (sub-string), creating a new character 

string. 


INV row,column,width,depth C,S 
Used to reverse character background; reverse field to normal 
or normal to reverse field. 


KEY function key number, ‘‘command” C 
KEY function key number,“‘command” + CHR$(13) 
Used to assign BASIC or Simons’ BASIC commands to the 
function keys. Including a carriage return (second format) is 
optional. 
Note: The key presses used for the 16 function key 
assignments is shown in Figure 4.1, page 32. 


LEFTW starting row,starting column,ending column,ending row __C,S 
LEFTB starting row,starting column,ending column,ending row 
W designates wraparound; B designates blanking. 

Used to scroll the specified screen area to the left. 


LOCAL variable list Ss 
Stores the values of previously defined variables (assumed to be 
GLOBAL) and clears the values for reuse. 

Note: LOCAL must be the last statement on a multiple- 
statement line. 
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LOOP:loop statement(s):EXIT IF condition;END LOOP 
Provides multiple exit condition testing within the loop. Any 
number of EXIT IF condition statements may be used 
anywhere within the loop. 


MEM 
Moves the Commodore character set from ROM into RAM so 
that the characters may be replaced with user-defined 
characters. 


MERGE “program name” ,device number 
Adds a program from a storage device to the end of the 
program currently in memory. 


MOVE row,column,width,lines,receiving row,receiving column 
Copies the specified portion of the screen, displaying the 
duplicate at the given screen location. 


NO ERROR 

NO ERROR:PRINT ERRN;ERRLN 
Turns off error trapping. (See ON ERROR.) Second format also 
prints the error number and the line number in which the 
error occurred. 


OFF 
Turns character background flashing off. 


OLD 
Restores most recent program cleared from memory by NEW, 
if no new program line has been entered. 


ON ERROR:GOTO line number of NO ERROR statement 
Used to trap any one of 19 specific programming errors. 


ON KEY “characters” ,;GOTO line number 

ON KEY string variable,;GOTO line number 
Accepts keyboard input of only the characters specified as the 
condition for the branch. 
Note: To pause the program until a valid character is input, 
this statement must be followed—on a separate line—by a 
GOTO branch to the ON KEY statement. 


C,S 


C,S 


Diba eto 
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OPTION 16 C 
Used to highlight (using reverse-field printing) all Simons’ 
BASIC keywords in a program listing. 


OPTION 6 C 
Used to turn off highlighting. 


PAGE number of lines Cc 
Controls the number of screen lines printed by LIST. 


PAGE 6 C 
Turns paging off. 


PAUSE number of seconds C,S 
PAUSE “message” number of seconds 

Prints optional message, if present. Halts program execution 

for the specified number of seconds. 


PLACE(“sub-string’’,“‘main string”’) Ss 
PLACKE(string variable name,string variable name) 

Returns the starting location of a sub-string within a main 

string. 


PROC procedure name S 
Used to name a closed or open-ended procedure. 


RCOMP:statement(s):ELSE:statement(s) Ss 
Re-executes the most previous IF condition test using the 
RCOMP and ELSE parameters. 


RENUMBER starting line number, increment C 
Renumbers all line numbers of the program in memory. 
Note: Does not renumber line number references in program 
statements. 


REPEAT: loop statement(s): UNTIL condition C,S 
Performs a program loop based on a condition test at the end 
of the loop. 


RESET data statement line number S 
Used to READ a specific portion of data by branching directly 
to a specific DATA statement line. 
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RESUME 
Causes a branch back to the previously executed ON KEY 
statement. 


RETRACE 
Resumes tracing. 


RIGHTW starting row,starting column,ending column,ending 
row 
RIGHTB starting row,starting column,ending column,ending 
row 

W specifies wraparound; B specifies blanking. 

Used to scroll the specified screen area to the right. 


SCRLD 2,8,2,‘‘name”’ 
Redisplays a screen saved on disk. 


SCRLD 1,1,6,‘‘name”’ 
Redisplays a screen saved on tape. 


SCRSV 2,8,2,“‘screen name,S,W” 
Saves a low-resolution screen display to disk. 


SCRSV 1,1,1,“‘screen name” 
Saves a low-resolution screen display to tape. 


SECURE 6 
Secures all DISAPA: code so that it is no longer listable. 
Note: Because this command is not reversible, it is agypable to 
SAVE a program before using SECURE. 


TRACE 16 
Displays each line number as it is executed. 


TRACE 6 
Turns off tracing. 


UPW starting row,starting column,ending column,ending row 
UPB starting row,starting column,ending column,ending row 
W designates wraparound; B designates blanking. 
Scrolls the specified screen area up. 


C,S 
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USE ‘‘#.#,” “character string” C,s 
USE ‘“‘#4.#,” string variable name 
USE ‘“‘text#.#text’’,“character string” 
USE ‘“‘text#.#text’,string variable name 
Used to format numeric data. Text may optionally preceed 
and/or follow the hash marks. 
Note: PRINT must follow a USE command when a carriage 
return is required. 


Mathematic Functions 


DIV(x,y) F 
Returns the quotient resulting from the division of two 
positive, integer numbers. 


EXOR(n,n) F 
Performs an exclusive OR (XOR) between two numbers. 


FRAC(numeric expression) F 
Returns the fractional part of a number resulting from the 
evaluation of the numeric expression. 


MOD(x,y) F 
Returns the remainder of a division of two positive, integer 
numbers. 

%binary number F 


Converts the specified binary number to decimal form. 


$hexadecimal number F 
Converts the specified hexadecimal number to decimal form. 
Graphics Mode Commands 


Plotting parameter definitions: 


x=starting column x1=endingcolumn xr=horizontal radii 
y=starting row y1=ending row yr=vertical radii 
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High-Resolution Mode Plot Types 


Plot Type Function 

) Turns off plotting, (clears what has been plotted, or 
leaves cleared what has not been plotted). 

1 Turns on plotting. 

2 Reverses plot types @ and 1. If plotting was on, plotting 
is cleared (turned off). If plotting was off, plotting is 
turned on. 

Multicolor Mode Plot Types 
Plot Type Function 

0 Clears a dot. 

1 Uses plotting color specified in the color 1 
parameter. 

. Uses plotting color specified in the color 2 
parameter. 

3 Uses plotting color specified in the color 3 
parameter. 

4 Reverses the order of the plotting color used: 
Plot color 0 changes to color 3 
Plot color 1 changes to color 2 
Plot color 2 changes to color 1 
Plot color 3 changes to color 6 

ANGL x, y,angle,xr,yr,plot type C,s 


Plots the radius of a circle at the specified screen location. 
Note: To correctly plot the radius of a circle on a video 
monitor, an adjustment factor must be used. The 
recommended adjustment factor is 1.4. For a high-resolution 
screen, multiply the horizontal radii by this adjustment factor. 
For a multicolor screen, multiply the vertical radii by this 
adjustment factor. 


ARC x, y,sa,ea,i,xr,yr,plot type C,s 
Plots a portion of the circumference of a circular shape at the 
specified screen location. sa=starting degree of angle; 
ea=ending degree of angle; i=increment of plotting. 
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Note: To correctly plot an arc on a video monitor, an 
adjustment factor must be used. The recommended adjustment 
factor is 1.4. For a high-resolution screen, multiply the 
horizontal radii by this adjustment factor. For a multicolor 
screen, multiply the vertical radii by this adjustment factor. 


BLOCK x,y,x1,y1,plot type C,S 
Plots a rectangle or square at the specified screen location, and 
fills it with the current plotting color. 
Note: To plot a perfect square on a video monitor, an 
adjustment factor must be used. The recommended adjustment 
factor is 1.4. For a high-resolution screen, the width is 
multiplied by the adjustment factor. For a multicolor screen, 
the depth is multiplied by this adjustment factor. 


CHAR x,y,poke code,plot type, height C,S 
Prints a single character on a graphics screen. Values for the 
height parameter are shown in Figure 15.3, page 143. 


CIRCLE x,y,xr,yr,plot type C,S 
Plots a circular or elliptical shape on a graphics screen. 
Note: To plot a perfect circle on a video monitor, an 
adjustment factor must be used. The recommended adjustment 
factor is 1.4. For a high-resolution screen, multiply the 
horizontal radii by this adjustment factor. For a multicolor 
screen, multiply the vertical radii by this adjustment factor. 


COPY S 
Produces a hard copy of a graphic screen on a serial printer. 
Note: If an adjustment factor was used in any of the plotting 
commands, it must be removed in order to print a correctly 
proportioned graphic. 


CSET 2 C,S 
Recalls the previously displayed graphic screen. 


DRAW “design instructions’ ,x,y,plot type C,S 
Used to create a graphic design, pixel by pixel, to be displayed 
at the specified screen location. 
Note: The ROT command must be used to display the design. 
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HI COL C,s 
Reverts to the colors specified in the most recently executed 
HIRES statement. 


HIRES plotting color,background color C,S 
Initiates the high-resolution, bit-mapped screen, and sets the 
screen foreground and background colors. 


LINE x,y,x1,y1,plot type C,S 
Plots a straight line—horizontal, diagonal, or vertical—as 
specified by the beginning and ending coordinates. 


LOW COL color1,color2,color3 C,sS 
Specifies new graphics plotting colors, replacing those 
specified in HIRES or MULTI. 
Note: In high-resolution mode color1 replaces the plotting 
color specified in the HIRES command, and color2 adds a 
plotting background color. Color3 must be specified, but is 
ignored. 


MULTI color 1,color 2,color 3 C,s 
Initializes the multicolor screen and specifies the three 
plotting colors to be used. 
Note: The HIRES command must precede this command. 


NRM C,S 
Returns the Commodore 64 to low-resolution mode from the 
graphics mode. 


PAINT x,y,plot type C,S 
Fills any closed graphic shape with the current plotting color. i 
Note: When using the multicolor mode, this command may be 
reused to repaint the graphic shapes with new colors, as 
specified in plot type. 


PLOT x,y,plottype . C,S 
Fills—“turns on’”—one pixel at the specified screen location. 


REC x,y,width,depth, plot type C,S 
Plots a rectangle or square using the specified screen location. 
Note: To plot a perfect square on a video monitor, an 
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adjustment factor must be used. The recommended adjustment 
factor is 1.4. For a high-resolution screen, the width is 
multiplied by the adjustment factor. For a multicolor screen, 
the depth is multiplied by this adjustment factor. 


ROT rotation number,size C,S 
Displays the design specified in DRAW. Degree of rotation and 
size specifications are given in Figure 16.2, page 170. 


numeric variable name=TEST{(x,y) C,s 
Returns the status—‘‘on or off’’—of the pixel at the specified 
location. A value of @ specifies ‘‘off” (no plotting) and a value 
of 1 specifies ‘‘on.”’ 


TEXT x,y,“[CTRL AJcharacter string’ plot type,height,spacing c,s 
TEXT x,y,“[CTRL B]character string” plot type,height,spacing 

Prints character strings on a graphics screen in both upper- 

and lowercase, in varying heights and with varying spacing 

between characters. CTRL A designates upper case; CTRL B 

designates lower case. Upper case is the default. The values 

used for the height and spacing parameters are shown in Figure 

15.3, page 143. 


Sprite Commands 


@ S 
Used to set up the design grid for a MOB. The grid for a high- 
resolution MOB is 24 pixels wide by 21 lines deep. For a 
multicolor MOB the grid is 12 pixels wide and 21 lines deep. 


IF CHECK(MOB number,MOB number)=@ THEN statement(s) S 
Used for collision testing between two MOBs. 


IF CHECK(6)=6 THEN statement(s) S 
Used for collision testing between any sprite and screen data. 


CMOB color B,color D S 
Specifies the two additional colors available for a multicolor 
MOB. 
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DESIGN resolution,starting memory location S 
DESIGN resolution,starting memory location + graphic 
constant value 
Reserves 64 bytes of memory for a high-resolution or 
multicolor MOB. The first format shown is used for the low- 
resolution screen. The second format is for the high-resolution 
screen, using decimal 49152 or hexadecimal $C000 as the 
graphic constant value. 


DETECT 6 S 
Used to detect sprite-to-sprite collisions. 


DETECT 1 Ss 
Used to detect sprite and screen data collisions. 


GRAPHICS F 
Holds the value 53248, the start address of the Video Interface 
Chip. 


MMOB number,x,y,x1,y1,expansion,speed S 
Displays, with or without movement, a high-resolution or 
multicolor MOB at the screen location, size, and speed 
specified. Speed of movement is in the range 1-255, with 1 
specifying the fastest speed and 255 the slowest speed. The 
display sizes that can be specified by the expansion parameter 
are shown in Figure 19.2, page 197. 


MOB OFF number S 
Clears the specified MOB from the screen. 


MOB SET number,block,color,priority,resolution S 
Initializes a high-resolution or multicolor MOB. 


RLOCMOB number,x1,y1,expansion,speed Ss 
Moves an on-screen MOB to a new screen location. 


Music Synthesis Commands 


ENVELOPE voice number,attack,decay,sustain volume,release S 
Defines the shape of the sound to be generated. 
Values used for attack, decay, and release rates are shown in 
Figure 21.4, page 223. 
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MUSIC beat,music string S 
Specifies the music to be generated by a specific voice(s). 
Note: Function key specifications for note duration are shown 
in Figure 21.5, page 226. 


PLAY n S 
Activates the music. The number 0 turns the music off, 1 plays 
the music and proceeds with the program, and 2 plays the 
music while continuing to execute the program. 
Note: PLAY 2 cannot be used in conjunction with high- 
resolution or multicolor graphics. 


SOUND F 
Holds the value 54272, the start address of the SID chip. 


VOL sound level value S 
Specifies the volume at which the music or sounds will be 
played. The sound level range is 6-15; maximum volume is 15, 
minimum volume is 1, and @ turns the sound off. 


WAVE voice number,waveform parameters Ss 
Specifies the waveform parameters for the designated voice. 
The waveform parameters are shown in Figure 21.2, page 
219. 


Video Game Controller Functions 


JOY F 
Returns a value designating the current joystick position or 
use of the fire button. Joystick position values are given in 
Figure 22.1, page 236. 


PENX F 
Returns the horizontal position (x coordinate) at which the 
light pen is pointed. 
Note: This value must be read before the value of PENY can be 
read. 


PENY F 
Returns the vertical position (y coordinate) at which the light 
pen is pointed. 


254 & Appendix A Simons’ BASIC Command Reference Listing 


Note: This value must be read after the value of PENY is read. 


POT(6) 
Returns a value in the range 0-255, indicating the current knob 
rotation of the left paddle. 


POT(1) 
Returns a value in the range 0-255, indicating the current knob 
rotation of the right paddle. 
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Figure Page 
Number Title Number 
18.1 Multicolor Screen Grid 180 
18.2 Multicolor Plot Types 181 
19.1 Sprite Screen Grid 197 
19.2 Sprite Display Size 197 
19.3 MOB Corner Screen Locations, Expansion Size 0 198 
19.4 MOB Corner Screen Locations, Expansion Size 1 199 
19.5 MOB Corner Screen Locations, Expansion Size 2 199 
19.6 MOB Corner Screen Locations, Expansion Size 3 200 

19.7 Block Numbers and Starting Memory Locations 

for MOBs 204 
21.1 Waveforms Illustration 217 
21.2 Waveform Parameter Binary Number 219 
21:3 ADSR Envelope Illustration 222 
21.4 ADSR Values 223 
21.5 Note Duration Table 226 
21.6 PLAY Statement Functions 227 
21.7 Ring Modulation Voice Number Table 228 
21.8 Synchronization Voice Number Table 230 


22.1 Joystick Position Values 236 


INDEX 


Accessing function keys (Figure 4.1), 32 

ADSR, 222-224 

ADSR envelope, illustration (Figure 21.3), 222 

ADSR values (Figure 21.4), 223-224 

Allocating sprite memory, 189-191, 207-208 

Allocating user-defined character memory, 
123-127 

ANGL command, statement, 159-161,184 

ARC command, statement, 155-159,184 

Assigning commands to function keys, 31-34 

Assigning commands to function keys, with 
carriage return, 33-34 

AT function, 68-70 

@ statement, user-defined characters, 123-127 

@ statement, sprites, 191-194 ~ 

AUTO command, 4-6 

Automatic line numbering, see AUTO 
command (4-6) 


Background color, see LOW COL command 
(148-149,185) 
BCKGNDS command, statement, 108-112 
BFLASH command, statement, 115-116 
Binary to decimal number conversion, 38 
BLOCK command, statement, 179-180 
Block numbers, MOB (Figure 19.7), 204-206, 
also see MOB SET statement (194-195, 
207-208) 
Border 
color, screen, see COLOUR command 
(107-108) 
flashing, see BFLASH command (115-116) 
Branching statements 
CALL statement, 97-99 
CGOTO statement, 85-88 
EXEC statement, 99 
IF THEN ELSE statement, 80-81 and 
RCOMP ELSE statement, 81-82 
INKEY statement, 57-59 
LOOP, EXIT IF, END LOOP statement, 83-84 
ON ERROR statement, 21-25 
ON KEY statement, 59-61 and RESUME, 
61-62 
REPEAT UNTIL statement, 82-83 
RESET statement, 89-93 


CALL statement, 97-99 

Calling a closed procedure, 99 

Calling an open-ended procedure, 97-99 

Cancelling automatic line numbering, 5-6 

CENTRE command, statement, 46-48 

Centering characters, see CENTRE command 
(46-48) 

CGOTO statement, 85-88 

Changing automatic line numbering 
parameters, 6 

CHAR command, statement, 145-147 


Character background 
color, see BEKGNDS command (108-112) 
flashing, see FLASH command (112-115) 
reverse field, see INV command (55-56) 
Character duplication, see DUP command 
(52-54) 
Character input, see ON KEY statement (59-61) 
Character sets, switching between, 54-55 
Character string 
expanding, see INSERT statement (48-49) 
location within main string, see PLACE 
statement (51-52) 
overwriting, see INST statement (49-51) 
Characters 
on a graphics screen, see CHAR command 
(145-147), TEXT command (142-145) 
print color, see FCOL command (118-119), 
FILL command (116-118, 126) 
screen placement, see AT function (68-70) 
user-defined, 122-127 
CHECK statement, 202 
CIRCLE command, statement, 152-155, 184 
Closed procedure, 96-97, 99-103 
CMOB statement, 195-196 
COLD command, 12-13 
Collision detection, sprites, see DETECT and 
CHECK statements (201-202) 
Color 
filling an enclosed shape, see PAINT 
command (165-167, 185), BLOCK 
command (167-168) 
key press table (Figure 13.1), 108 
multicolor sprites, see CMOB statement 
(195-196) 
numbers (Figure 13.1), 108 
plotting background color in HIRES, see 
LOW COL command (148-149, 185) 
plotting color - see HIRES command (137), 
MULTI command (181-183) 
plotting color changes - see LOW COL 
command (148-149, 185), HI COL 
command (149-150) 
COLOUR command, statement, 107-108 
Control characters, FETCH, 63 
COPY statement, 175-176 
CSET command, statement, 54-55 
CSET 2 command, statement, 174-175 


Data pointers, resetting, 89-93 
DELAY command, 11-12 
DESIGN statement, 189-191,207-208 
DESIGN 2 statement, 123-127 
Design grid 
sprites, 191-194 
user-defined characters, 123-127 
Design instructions for DRAW command, 
(Figure 16.1), 169 
DETECT statement, 201-202 
DIR command, 41-42 
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DISAPA: statement, 26-27 

DISK command, 40-41 

Disk directory listing, see DIR command 
(41-42) 

DISPLAY command, 34-35 

Display on video screen 
DRAW design, see ROT command (168-170) 
sprite, see MMOB statement (196-201) 

DIV function, 36 

DOWN command, statement, 129-130 

DRAW command design instructions (Figure 
16.1), 169 

DRAW command, statement, 168-170 

DUMP command, statement, 18-19, 20-21 

DUP command, statement, 52-54 

Duplication 
characters, see DUP command (52-54) 
screen portion, see MOVE command (71-74) 


Ellipse, plotting, 153-154 

END PROC statement, 99 

ENVELOPE, ADSR illustration (Figure 21.3), 
222 

ENVELOPE statement, 222-224 

ERRLN function, 21-25 

ERRN function, 21-25 

Errors trapped by ON ERROR (Figure 2.2), 
21-22 

EXEC statement, 99 

EXOR function, 38-39 


FCHR command, statement, 119 
FCOL command, statement, 118-119 
FETCH control characters (Figure 8.2), 63 
FETCH statement, 62-67 
FILL command, statement, 116-117, 126 
FIND command, statement, 19 
FLASH command, statement, 112-115 
FLASH, turning off, see OFF command (113) 
Formatting 
characters, see CENTRE command (46-48), 
AT function (68-70) 
numbers, see USE command (70-71) 
FRAC function, 37 
Function key 
access for KEY command (Figure 4.1), 32 
assignment, see KEY command (31-34) 
assignment display, see DISPLAY command 
(34-35) 
input, see INKEY statement (57-59) 


GLOBAL statement, 93-95 
Graphic 
modes, 133-134 
screen, hardcopy, see COPY statement 
(175-176) 
screen, high resolution, 134-135 
screen, multicolor, 177-178 
screen recall, see CSET 2 (174-175) 
GRAPHICS function, 210 


Hexidecimal to decimal number conversion, 38 
HI COL command, statement, 149-150 
Highlighting Simons’ BASIC keywords in 
listings, see OPTION command (74-75) 
High-resolution 
graphics, 134-135 
plot types (Figure 15.1), 138 
screen layout (Figure $5.1), 135 
HIRES command, statement, 137 
HRDCPY statement, 75-76 


IF THEN ELSE statement, 80-81 
Initializing 
high-resolution screen, see HIRES command 
(137) 
multicolor screen, see MULTI command 
(181-183) 
sprite, see MOB SET statement (194-195, 
207-208) 
INKEY statement, 57-59 
INSERT statement, 48-49 
INST statement, 49-51 
INV command, statement, 55-56 


JOY function, 234-236 

Joystick position values (Figure 22.1), 236 

Joystick read function, see JOY function 
(234-236) 


KEY command, 31-34 

KEY command, with cariage return, 33-34 

Key conventions for program entry, 3, 44-45, 
106, 188, 213 


LEFT command, statement, 129 

Light pen read functions, see PENX and PENY 
functions (238) 

LINE command, statement, 150-152 

Line numbering 
automatic, see AUTO command (4-6) 
renumbering, see RENUMBER command 

(6-9) 

Listing, disk directory, see DIR command 
(41-42) 

Listings, programs 
highlighting keywords, see OPTION 

command (74-75) 

paging, see PAGE command (9-11) 
printing speed, see DELAY command (11-12) 

Loading a low-resolution screen, see SCRLD 
command (121) 

LOCAL statement, 93-95 

LOOP, EXIT IF, END LOOP statement, 83-84 

Loops, see Branching statements 

LOW COL command, statement, 148-149, 185 

Low-resolution screen printing, see HRDCPY 
(75-76) 


a 


Math functions 
DIV function, 36 
FRAC function, 37 
MOD function, 37 
MEM statement, 122 
Memory allocation 
sprites, see DESIGN statement (189-191, 
207-208) and MOB SET statement (194-195, 
207-208) 
user-defined characters, see DESIGN 2 
statement (123-127) 
MERGE command, 103-104 
MMOB statement, 196-201 
MOB, see Sprite (MOB) 
MOB OFF statement, 203-204 
MOB SET statement, 194-195, 207-208 
MOD function, 37 
MOVE command, statement, 71-74 
MULTI command, statement, 181-183 
Multicolor ‘ 
plot types (Figure 18.2), 181 
screen configuration, 177-178 
screen grid (Figure S6.1), 180 
MUSIC statement, 224-226 


Naming a procedure, see PROC statement (97) 
NO ERROR statement, 21-25 
Note Duration Table (Figure 21.5), 226 
NRM command, statement, 164 
Numeric aids, 36-39 
Numeric conversion functions 
binary to decimal, 38 
exclusive-OR, 38-39 
hexidecimal to decimal, 38 


OFF command, statement, 113 

OLD command, 12 

ON ERROR statement, 21-25 

ON KEY return statement, see RESUME 
statement (61-62) 

ON KEY statement, 59-61 

ON KEY valid characters (Figure 8.1), 60 

Open-ended procedure, 96-99 

OPTION command, 74-75 


Paddle read function, see POT function (237) 

PAGE command, 9-11 

PAINT command, statement, 165-167, 185 

PAUSE command, statement, 20-21 

PENX function, 238 

PENY function, 238 

_ PLACE statement, 51-52 

PLAY functions (Figure 21.6), 227 

PLAY statement, 226-228 

Plot colors, see HIRES (137), LOW COL 
(148-149, 185), HI COL (149-150), and MULTI 
(181-183) commands 

PLOT command, statement, 161-162 
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Plot types 
high-resolution (Figure 15.1), 138 
multicolor (Figure 18.2), 181 

Plotting a square 
high-resolution screen, 140-142 
multicolor screen, 183-184 

Plotting an ellipse, 153-154 

Plotting commands, see specific commands: 
REC (137-142), LINE (150-152), CIRCLE 
(152-155, 184), ARC (155-159, 184), ANGL 
(159-161, 184), PLOT (161-162), TEST (162-164) 

POT function, 237 

PRINT function, see AT function (68-70) 

Printing text on a graphics screen, see TEXT 
command (142-145), CHAR command 
(145-147) 

PROC statement, 97 

Procedures, 96-103 

Program Listings 
highlighting keywords, see OPTION 

command (74-75) 

paging, see PAGE command (9-11) 
printing speed, see DELAY command (11-12) 

Pulse/square waveform, 220-221 

Pulse waveforms, 220-221 


Read functions 
joystick, see JOY function (234-236) 
light pen, see PENX and PENY functions 

(238) 

paddle, see POT (237) 

RCOMP ELSE statement, 81-82 

REC command, statement, 137-142 

Recalling a graphic screen, see CSET 2 
(174-175) 

Rectangle, plotting, see REC command 
(137-142) 

Redisplaying a saved screen, see SCRLD (121) 

RENUMBER command, 6-9 

REPEAT UNTIL command, statement, 82-83 

RESET statement, 89-93 

Resetting data pointers, see RESET statement 
(89-93) 

RESUME statement, 61-62 

RETRACE command, 17-18 

Reusing variables, see LOCAL and GLOBAL 
statements (93-95) 

Reversing character background, see INV 
command (55-56) 

RIGHT command, statement, 127-129 

Ring modulation, 228-229 

Ring modulation voice number table (Figure 
21.7), 228 

RLOCMOB statement, 201 

ROT command, statement, 170-173 

Rotation 
DRAW design, see ROT command (170-173) 
instructions (Figure 16.2), 170 
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Screen 
border color, see COLOUR command 
(107-108) 
border, flashing, see BFLASH (115-116) 
color, see COLOUR command (107-108) 
duplicating a portion, see MOVE command 
(71-74) 
lines, paging by, see PAGE command (9-11) 
load, low-resolution, see SCRLD statement 
(121) 
printing, high-resolution, see COPY 
statement (175-176) 
printing, low-resolution, see HRDCPY 
statement (75-76) 
save, low-resolution, see SCRSV (120-121) 
scrolling, see RIGHT, LEFT, UP, and DOWN 
commands (127-132) 
Screen grids 
low-resolution and high-resolution (Figure 
$5.1), 135 
low-resolution, high-resolution, and 
multicolor (Figure $6.1), 178 
MOB, corner locations, expansion size 0 
(Figure 19.3), 198 
MOB, corner locations, expansion size 1 
(Figure 19.4), 199 
MOB, corner locations, expansion size 2 
(Figure 19.5), 199 
MOB, corner locations, expansion size 3 
(Figure 19.6), 200 
multicolor (Figure 18.1), 180 
sprite screen grid (Figure 19.1), 197 
SCRLD command, 121 
Scrolling techniques, 127-132 
SCRSV statement, 120-121 
SECURE command, 27-29 
SOUND function, 220-221 
Sprite (MOB) 
block numbers and memory locations 
(Figure 19.7), 204-206 
collision detection, see DETECT and CHECK 
statements (201-202) 


Sprite (MOB)—continued 
color, see @ statement (191-194), CMOB 
statement (195-196) 
design, see @ statement (191-194) 
display, see MMOB statement (196-201) 
display size (Figure 19.2), 197 
initializing, see MOB SET statement 
(194-195, 207-208) 
memory allocation, see DESIGN statement 
(189-191, 207-208) 
movement, see MMOB statement (196-201), 
RELOCMOB statement (201) 
removal, see MOB OFF statement (203-204) 
Square 
plotted on high-resolution screen, 140-142 
plotted on multicolor screen, 183-184 
Structured programming, 96-103 
Synchronization, 229-231 
Synchronization voice number table (Figure 
21.8), 230 


TEST command, statement, 162-164 

TEXT command, statement, 142-145 

TEXT height and spacing values (Figure 15.3), 
143 

TRACE command, statement, 14-18, 20-21, 29 

TRACE, turning off, 16 


UP command, statement, 130 
USE command, statement, 70-71 
User-defined characters, 122-127 


Variables, reusing, see LOCAL and GLOBAL 
statements (93-95) 
VOL statement, 215-217 


WAVE statement, 218-220 

Waveform parameter binary number function 
table (Figure 21.2), 219 

Waveforms, 217-218 

Waveforms, illustration (Figure 21.1), 217 
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